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ABSTRACT 


This  paper  documents  the  development  of  a  statistical 
analysis  package  for  the  TRS-80  microcomputer.  The  package 
is  comprised  of  six  interactive  programs  which  are  generally 
divided  into  topical  areas.  The  major  emphasis  is  on  ex¬ 
ploratory  data  analysis  and  statistical  inference,  however, 
probability  and  inverse  probability  distributions  are  also 
included. 

The  programming  language  is  TRS-80  Level  II  BASIC  en¬ 
hanced  by  the  input /output  commands  available  through  the 
ESF-80  (Exatron  Stringy  Floppy)  mass  storage  subsystem. 
With  the  modification  of  these  few  commands,  the  package  is 
compatible  with  most  floppy  disk  operating  systems  designed 
for  the  TRS-80  Model  I  or  Model  III  microcomputers. 

This  statistical  analysis  capability  implemented  on  a 
relatively  inexpensive  system  provides  a  useful  tool  to  the 
student  or  the  trained  analyst  without  ready  access  to  a 
mainframe  computer  system. 
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I.  INTRODUCTION 


Over  the  past  decade  computers  have  played  an  ever 
increasing  role  in  the  day  to  day  operation  and  adminis¬ 
tration  of  the  military  services.  In  the  Marine  Corps,  for 
example,  computer-based  systems  such  as  MMS  (Manpower  Man¬ 
agement  System),  JUMPS  (Joint  Uniform  Military  Pay  System), 
MIMMS  (Marine  Corps  Integrated  Maintenance  Management  Sys¬ 
tem),  and  many  others  handle  virtually  all  personnel 
administration  and  personnel  pay  matters,  equipment  main¬ 
tenance  and  operational  status  reporting,  supply  requisi¬ 
tioning,  fiscal  record-keeping,  etc.  The  computers  which 
support  these  systems  are  large  mainframe  devices  usually 
shared  by  two  or  more  major  commands.  While  the  small  unit 
commander  certainly  benefits  from  the  overall  effects  of 
these  large  computer  systems,  he  has  little  or  no  access  to 
a  computer  system  for  projects  tailored  to  his  individual 
unit . 

The  small,  relatively  inexpensive  microcomputer  sys¬ 
tems  which  abound  today  offer  the  small  unit  commander  the 
possibilities  of  a  customized  computer  based  system  for 
unit  level  information  processing,  record  keeping  and 
problem  solving.  The  hardware  is  available  and  within  the 
budget  of  these  lower  levels  of  command  but  will  be  of 
little  use  unless  appropriate  software  is  also  available. 
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The  purpose  of  this  thesis  is  to  provide  a  software  package 
consisting  of  a  number  of  statistical  analysis  procedures 
which  can  be  effectively  implemented  on  a  microcomputer. 
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A.  PACKAGE  CONTENT 


McNeil  [Ref.  1]  states  that  an  effective  data  analyst 
requires  as  his  basic  tools  a  computer  and  a  set  of  routine 
procedures.  By  his  definition,  the  computer  can  range  from 
the  statistican  with  pencil  and  paper  to  a  wide  variety  of 
electronic  computational  devices.  Whatever  form  it  takes, 
the  function  of  the  computer  is  to  faithfully  execute  the 
collection  of  routine  procedures  selected  by  the  analyst. 
By  implication,  the  key  to  an  effective  statistical  analy¬ 
sis  package  is  the  proper  choice  of  procedures  to  be 
included. 

The  collection  of  "routine  procedures"  contained  in 
this  package  are  intended  to  provide  the  potential  user 
with  a  basic  set  of  widely  utilized  statistical  analysis 
tools.  These  procedures  have  broad  application  and  are  not 
designed  for  any  one  specific  scenario.  The  package  was, 
however,  designed  with  a  specific  user  in  mind,  i.e.  the 
military  officer  with  a  working  knowledge  of  statistical 
analysis  techniques  and  a  desire  to  apply  these  techniques 
at  the  small  unit  level.  The  potential  applications  remain 
broad  but  typically  include  such  items  as  forecasting  next 
quarter's  training  support  requirements,  temporary  addi¬ 
tional  duty  budget,  spare  parts  demand,  etc.,  without 
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complete  knowledge  of  the  number  of  personnel  who  will  be 
assigned,  what  changes  might  be  made  in  exercise  schedules, 
equipment  usage  rate  and  many  other  pertinent  facts.  In 
other  words,  he  must  make  plans,  decisions,  and  forecasts 
based  upon  his  best  estimation  of  the  values  of  random 
variables.  A  common  sense  approach  to  this  problem  is  to 
collect  data  on  previous  observations  of  the  random  var¬ 
iable  in  question  and  use  this  data  as  a  indicator  of  what 
can  be  expected  in  the  future. 

In  order  to  make  knowledgeable  decisions  based  on  the 
available  data  it  is  first  necessary  to  gain  insight  into 
the  nature  and  structure  of  the  data.  Procedures  utilized 
for  this  purpose  are  generally  classified  as  exploratory 
data  analysis  techniques.  A  number  of  the  procedures 
included  in  the  package  fall  under  this  general  classifi¬ 
cation.  These  include  subroutines  which  calculate  sample 
statistics  such  as  sample  mean,  sample  variance,  skewness, 
kurtosis  and  the  seven  number  summary.  Also  included  are 
data  plots  such  as  histogram,  stem  and  leaf,  normal  prob¬ 
ability  plot  and  exponential  probability  plot.  These  pro¬ 
cedures  were  selected  because  the  manner  in  which  they 
represent  the  data  is  straightforward  and  easily  inter¬ 
preted  by  the  trained  analyst. 

After  the  analyst  has  studied  the  nature  and  structure 
of  the  data  he  is  usually  interested  in  knowing  what 
inferences  concerning  various  population  parameters  can  be 
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drawn  from  the  data.  Statistical  analysis  procedures  which 
are  concerned  with  this  question  fall  under  the  heading  or 
statistical  inference.  Statistical  inference  can  be  fur¬ 
ther  subdivided.  If,  through  exploratory  data  analysis  of 
by  other  means,  the  analyst  feels  that  it  is  reasonable  to 
assume  knowledge  of  the  distributional  family  from  which 
the  data  sample  is  drawn,  then,  according  to  DeGroot 
[Ref.  2],  he  is  dealing  in  the  area  of  parametric  statis¬ 
tical  inference.  If,  on  the  other  hand,  inferences  are  made 
about  population  parameters  without  assuming  an  underlying 
distributional  form,  the  term  nonparametric  statistical 
inference  is  applicable.  Procedures  which  rest  on  implicit 
population  assumptions  but  which  are  tolerant  of  departures 
from  these  assumptions  are  called  robust  procedures. 

Parametric  statistical  inference  procedures  contained 
in  this  package  include  tests  of  hypotheses  and  confidence 
intervals  for  population  parameters  under  the  normal, 
exponential  and  Bernoulli  distributional  assumptions.  While 
these  three  distributions  are  not  the  only  ones  of  potential 
interest,  they  are  probably  the  most  common  distributions 
assumed. 

Procedures  which  provide  robust  estimates  for  popula¬ 
tion  parameters  are  also  included  in  the  package.  The 
robust-t  (Winsorized-t  and  trimmed-t)  procedures  are 
utilized  for  establishing  a  point  estimate  and  confidence 
interval  for  the  population  mean.  The  Jackknife  technique 
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is  used  for  a  point  estimate  and  interval  estimate  for  the 
population  variance.  The  one  true  nonparametric  statistical 
inference  procedure  included  in  the  package  is  a  subroutine 
which  computes  a  confidence  interval  for  the  population 
median. 

As  implemented  in  this  package,  the  procedures  thus 
far  mentioned  deal  with  univariate  data,  i.e.  data  which 
represents  a  single  random  variable.  Also  included  is  a 
multiple  linear  regression  procedure  which,  using  the 
method  of  ordinary  least  squares,  tests  for  a  statistically 
significant  linear  relationship  between  a  dependent 
(response)  variable  and  one  or  more  independent  (carrier) 
variables.  The  regression  equation  coefficients  which 
estimate  the  linear  relationship  and  a  number  of  statistics 
which  measure  the  "goodness"  of  the  fit  are  also  calcula¬ 
ted.  Linear  regression  is  one  of  the  most  widely  utilized 
statistical  analysis  procedures  and  is  a  powerful  tool  when 
properly  used.  A  typical  application  for  a  military  unit 
might  be  to  study  the  relationship  between  the  number  of 
Not  Operationally  Ready  (NOR)  pieces  of  equipment  reported 
for  each  month  over  some  period  of  time  (the  response  var¬ 
iable)  and  such  carriers  as  the  average  number  of  techni¬ 
cians  assigned  for  the  month,  number  of  days  spent  in  the 
field  during  the  month,  average  response  time  for  supply 
demands,  etc. 


ANalysis  Of  VAriance  (ANOVA)  procedures,  which  are 
used  to  test  for  statistically  significant  differences 
between  two  or  more  population  means,  are  also  included. 
This  program  allows  for  one-way  classification  of  popula¬ 
tions,  e.g.  scores  on  the  GMS  test  (General  Military  Sub¬ 
jects)  made  by  individuals  classified  according  to  MOS 
(Military  Ocupational  Speciality);  two-way  classification, 
e.g.  GMS  scores  made  by  individuals  classified  according  to 
MOS  and  sex;  or  three-way  classification,  e.g.  GMS  scores 
made  by  individuals  classified  according  to  MOS,  sex  and 
highschool  completion  status.  As  in  the  case  of  multiple 
linear  regression,  the  ANOVA  procedure  is  a  very  powerful 
and  widely  utilized  analysis  tool. 

Finally,  the  package  contains  several  of  the  more 
common  discrete  and  continuous  probability  distributions  and 
inverse  distributions  and  three  common  data  transformations. 
The  probability  distributions  and  inverse  probability 
distributions  are  of  interest  to  the  analyst  in  their  own 
right  and  many  also  serve  as  subroutines  for  other  statis¬ 
tical  analysis  procedures  contained  in  the  package.  The 
data  transformations  (square  root,  cube  root  and  natural 
logarithm)  can  be  useful  during  the  exploratory  data 
analysis  phase  in  helping  to  uncover  structure  in  the  data. 

Except  in  the  more  trivial  cases,  e.g.  sample  mean, 
the  procedures  mentioned  above  and  the  algorithms  utilized 
to  implement  the  procedures  will  be  discussed  in  more 
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detail  in  later  sections  of  this  paper.  A  summary  of  the 
procedures  contained  in  this  package  is  given  in  Figure  1. 

B.  TRS-80  MICROCOMPUTER  SYSTEM 

As  previously  stated,  the  analyst  can  accomplish  the 
calculations  required  to  perform  the  statistical  analysis 
procedures  outlined  above  in  a  variety  of  ways.  These 
range  from  pencil  and  paper  to  large  mainframe  computer 
systems.  The  computations  required  for  very  small  data 
sets  can  easily  be  handled  with  pencil  and  paper  and  per¬ 
haps  a  handheld  calculator  while  the  practical  considera¬ 
tions  of  time  alone  dictates  that  very  large  data  sets 
require  a  mainframe  computer  system  for  effective  analysis. 
It  is  analysis  of  the  moderate  size  data  set  (perhaps 
twenty  to  several  hundred  data  points)  which  would  become 
quite  tedious  to  accomplish  by  hand  but  which  might  not 
merit  the  expense  of  a  large  computer  system,  assuming  one 
were  available,  that  the  microcomputer  handles  nicely. 

A  number  of  microcomputers  are  currently  available  and 
new  makes  and  models  are  appearing  rapidly.  This  paper 
makes  no  attempt  to  draw  qualitative  comparisons  between 
the  competing  brands.  No  such  study  was  undertaken.  The 
TRS-80  microcomputer  was  selected  for  this  project  simply 
because  it  appeared  to  offer  capabilities  comparable  to  the 
other  popular  makes  at  a  slightly  lower  price.  In  addition, 
at  least  at  the  time  the  computer  was  purchased,  the  TRS-80 
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appeared  to  have  the  widest  market  acceptance.  A  more 
detailed  description  of  the  system  follows. 

This  package  was  developed  on  a  TRS-80,  Model  I,  Level 
II  microcomputer.  The  basic  system  consists  of  a  16K  RAM 
(Random  Access  Memory)  CPU/Keyboard  (Central  Processing 
Unit),  a  12  inch  diagonal  video  display,  and  a  cassette 
recorder  for  loading  and  recording  programs  and  data.  This 
basic  system  was  enhanced  with  a  Microtek  32K  RAM  memory 
expansion  unit  and  a  ESF-80  (Exatron  Stringy  Floppy)  mass 
storage  subsystem  which  was  used  in  lieu  of  the  cassette 
recorder.  The  entire  system  cost  less  than  $1,400. 

This  system  proved  to  be  reliable  and  provided  the 
capabilities  necessary  for  the  successful  completion  of  this 
project.  A  major  enhancement,  however,  would  have  been 
at  least  one  floppy  disk  system  for  loading  programs  and 
for  input /output  of  data  files.  This  addition  would  have 
significantly  increased  the  speed  of  program  loading  and 
data  file  handling  and  provided  the  potential  of  alternate 
programming  languages. 

C.  PROGRAMMING  LANGUAGE 

The  programming  language  for  this  package  is  TRS-80 
Level  II  BASIC  developed  by  Microsoft  Inc.  A  Level  II 
BASIC  interpreter  is  resident  in  the  ROM  (Read  Only  Memory) 
contained  in  the  TRS-80  CPU.  This  "built  in"  language  was 
used  as  an  expediency;  the  comparatively  slow  execution 


speed  of  BASIC  is  not  a  significant  factor  for  problems  of 
the  size  this  package  is  designed  to  handle. 

The  native  Level  II  BASIC  was  enhanced  with  several 
system  commands  made  available  through  the  ROM  contained  in 
the  ESF-80  mass  storage  subsystem.  These  commands  accom¬ 
plish  several  fundamental  operations.  The  @SAVE  and  ©LOAD 
commands  are  used  to  record  and  load  program  code.  The 
0OPEN,  0CLOSE,  SPRINT  and  @ INPUT  commands  are  for  data  file 
handling.  Finally,  inclusion  of  the  SLOAD  command  in  pro¬ 
gram  code  enables  the  chaining  of  programs  (the  ability  to 
load  a  program  while  preserving  the  variables  created  by 
the  previously  loaded  programs). 

D.  PACKAGE  PORTABILITY 

Without  at  least  some  minor  modifications  this  package 
is  portable  only  to  an  identical  system.  Virtually  all 
DOS's  (Disk  Operating  Systems)  designed  for  the  TRS-80 
Model  I  and  Model  III  microcomputers,  however,  contain  as  a 
subset  system  commands  which  perform  the  same  functions  as 
those  provided  by  the  ESF-80  subsystem.  Modification  of 
these  commands,  which  are  contained  in  perhaps  six  lines  of 
code  in  each  of  the  six  programs  in  the  package,  would  make 
it  portable  to  any  TRS-80  Model  I  or  Model  III  48K  RAM 
system  equipped  with  at  least  one  disk  drive  system. 

The  most  significant  differences  between  Level  II 
BASIC  and  the  versions  of  BASIC  implemented  on  other 
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microcomputers  are  keywords  relating  to  display  output. 
Because  of  the  large  amount  of  code  directly  relating  to 
display  output,  it  would  require  a  sizeable  effort  to  mod¬ 
ify  this  package  for  another  microcomputer.  The  program 
logic,  however,  could  serve  as  a  model  for  programs  written 
in  other  versions  of  BASiC  or  even  FORTRAN.  A  partial 
translation  of  this  package  into  FORTRAN- IV  was  accom¬ 
plished  for  implementation  on  a  PDP-11-60  minicomputer 
system. 

E.  LIMITATIONS 

Three  interrelated  constraints  of  this  package  are 
accuracy,  speed  and  capacity.  TRS-80  Level  II  BASIC 
includes  the  capability  of  defining  double  precision  var¬ 
iables,  thus  significantly  increasing  the  accuracy  of 
computations.  Double  precision  variables,  however,  require 
increased  memory  for  storage  and  computation,  with  a  resul¬ 
tant  decrease  in  the  capacity  of  the  computer  to  handle 
large  data  arrays,  and  an  increase  in  computation  time.  On 
the  other  hand,  when  variables  are  defined  as  single  pre¬ 
cision  some  algorithms  which  use  approximations  requiring 
increased  precision  must  be  rejected  in  favor  of  others 
which  are  often  slower.  The  goal  then  was  to  strike  a 
proper  balance  so  that  a  good  degree  of  accuracy  could  be 


attained  and,  at  the  some  time,  allow  for  reasonable  speed 
of  execution  and  capacity. 

The  majority  of  the  variables  in  this  package  are 
single  precision  variables,  but  integer  variables  were  used 
where  possible  and  a  few  procedures  require  the  use  of 
string,  i.e.  character  or  literal,  variables.  No  double 
precision  variables  are  used.  Over  the  range  of  problems 
tested,  the  accuracy  was  found  to  be  good  (four  or  more 
decimal  place  accuracy)  in  most  instances  and  fair  (two  or 
three  decimal  place  accuracy)  in  a  few  cases. 

The  capacity  of  the  package  is  limited  to  a  vector  of 
200  observations  for  those  procedures  which  apply  to  uni¬ 
variate  data,  i.e.  the  first  four  programs.  The  multiple 
linear  regression  program  is  limited  to  a  data  array  of 
10X100  (response  variable,  9  carrier  variables  and  100 
observations).  The  AN0VA  program  is  limited  to  10X20, 
10X10X10,  and  10X10X10  arrays  respectively  for  the  one,  two 
and  three-way  classification  cases.  The  size  of  the  data 
arrays  handled  by  each  program  could  be  significantly 
increased  if  each  program  were  loaded  and  executed  as  a 
single  program.  In  order  to  chain  the  programs  together 
and  therefore  pass  variables  back  and  forth  between  pro¬ 
grams,  the  array  sizes  are  limited  to  those  cited  above. 

The  package  was  designed  for  analysis  of  relatively 
small  data  arrays.  Even  so,  due  to  the  inherent  nature  of 
an  interpreted  language  such  as  TRS-80  Level  II  BASIC, 
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subroutines  which  require  many  iterative  calculations,  e.g. 
several  of  the  inverse  probability  distributions  and  some  of 
the  robust  procedures,  can  require  up  to  several  minutes  of 
execution  time.  Each  algorithm  was  designed  to  execute  as 
fast  as  possible,  but  whenever  a  choice  had  to  be  made 
between  speed  of  execution  and  accuracy,  the  more  accurate 
algorithm  was  selected. 

It  is  perhaps  indicative  of  the  current  high  degree  of 
computational  power  available  that  an  algorithm  is  consid¬ 
ered  slow  when  it  requires  several  minutes  of  execution 
time.  A  decade  ago  analysis  of  a  moderate  size  sample 
which  did  not  merit  very  expensive  computer  time  could  have 
consumed  hours  of  tedious  hand  calculations. 

F.  USER  FRIENDLY  FEATURES 

This  package  was  designed  to  be  used  by  the  individual 
with  a  general  understanding  of  statistical  analysis  pro¬ 
cedures  and  terminology.  At  the  same  time,  it  was  recog¬ 
nized  that  there  does  not  exist  a  completly  standardized 
set  of  conventions  for  symbols  and  terms.  While  no  attempt 
was  made  to  define  all  procedures,  parameters  or  terms,  a 
brief  explanation  was  provided  where,  in  the  subjective 
opinion  of  the  author,  it  was  felt  confusion  might  exist. 
For  example  terms  such  as  mean,  variance,  confidence  level, 
sum  of  squares,  F-statistic,  etc.  were  assumed  to  be  well 
understood  by  any  potential  user.  When  the  user  is 


19 


initially  introduced  to  the  term  "exponential  parameter 


lambda",  however,  he  is  advised  that  the  term  refers  to  the 
reciprocal  of  the  exponential  mean. 

Even  the  most  knowledgeable  user  can  inadvertently 
enter  a  value  or  character  which  would  cause  the  program  to 
terminate  due  to  error  or  at  least  return  an  incorrect 
answer.  Whenever  the  user  is  prompted  for  an  input  the 
value  or  character  entered  is  fir*1:,  tested  to  see  that  it 
has  some  logical  meaning  within  the  context  of  the  opera¬ 
tion  or  calculation  to  be  exec'*, red.  If  it  is  recognized 
that  it  does  not  then  the  user  is  so  advised  and  is  allowed 
to  reenter  the  value  or  character.  If,  for  example,  a  data 
transformation  or  a  data  plot  procedure  is  selected  after 
summary  statistics  have  been  entered,  the  user  is  advised 
that  the  selected  subroutine  is  not  applicable  since  data 
have  not  been  entered  and  he  is  prompted  for  another 
selection. 
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III.  DISCUSSION  OF  PROGRAMS /ALGORITHMS 


A.  STRUCTURE  AND  ORGANIZATION 

The  package  is  divided  into  six  chained  programs.  The 
control  module  is  integrated  into  program  1  and  must  always 
be  loaded  first.  The  control  module  serves  to  define, 
dimension,  and  initialize  variables  for  the  first  four 
programs  and  positions  the  variable  pointer  so  that  subse¬ 
quent  programs  can  be  loaded  without  loss  of  variables. 
The  control  module  also  contains  the  program  instructions 
and  program  selection  menu. 

After  initial  execution  of  the  control  module  any  of 
the  six  programs  may  be  selected  by  the  user.  A  video 
prompt  tells  the  user  which  program  tape  to  load  into  the 
ESF-80;  the  program  is  then  automatically  loaded  and  begins 
execution  (auto  run).  The  user  is  then  free  to  move  from 
one  program  to  the  next  with  the  following  limitation:  when 
either  program  5  or  program  6  is  loaded  all  variables  are 
cleared  and  redimensioned  in  order  to  accomodate  the  mul¬ 
tidimensional  arrays  required  by  these  programs.  If  the 
user  desires  to  access  one  of  the  first  four  programs  after 
using  program  5  or  program  6,  it  is  necessary  to  first  load 
program  1  and  thus  the  control  module  in  order  to  reini¬ 
tialize  variables. 
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B.  PROGRAM  1 


Program  1  contains  data  input /output  procedures,  data 
transformations  and  a  number  of  common  probability  distribu¬ 
tions  and  inverse  probability  distributions.  A  detailed 
block  diagram  of  program  1  is  given  in  figure  2. 

1.  Data  Input /Output 

Data  Input/Output  (I/O)  for  the  first  four  pro¬ 
grams  is  accomplished  in  program  1.  Programs  5  and  6  con¬ 
tain  their  own  data  I/O  subroutines.  A  one  dimensional  array 
of  up  to  200  data  points  may  be  manually  entered  via  the 
keyboard,  or  a  previously  saved  (recorded)  data  array  may  be 
loaded  via  the  ESF-80.  As  a  third  alternative,  the  user  may 
select  one  of  four  random  number  generators  (normal, 
exponential,  uniform  and  Bernoulli)  to  create  data.  Finally, 
the  user  is  allowed  to  enter  summary  statistics  only.  This 
last  capability  is  duplicated  in  program  3  to  facilitate 
testing  of  various  hypotheses. 

Any  time  data  or  summary  statistics  are  entered,  all 
previously  entered  data  is  cleared.  The  user  is  therefore 
given  the  option  to  save  data  on  tape  in  the  event  that 
further  analysis  is  desired. 

All  data  are  stored  in  two  single  dimensional 
arrays,  X(i)  and  Y(i).  Both  are  defined  as  single  preci¬ 
sion  real  arrays  which  are  stored  with  seven  digits  of 
precision  but  are  printed  with  a  maximum  of  six  digits  of 
precision  (if  the  seventh  digit  is  5  or  greater  then  it  is 
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BLOCK  DIAGRAM  OF  PROGRAM  #1 


rounded  up).  All  seven  digits  of  precision  are  used  for 
computations.  The  X  array  is  used  to  save  the  raw  data  while 
the  Y  array  may  contain  transformed  data.  All  subroutines  in 
the  first  four  programs  operate  on  the  Y  array. 

After  the  data  has  been  entered  either  manually  via 
the  keyboard,  loaded  via  a  prerecorded  data  tape  or 
generated  by  one  of  the  four  random  number  generators,  two 
operations  on  the  arrays  are  automatically  executed.  First, 
unless  the  data  are  already  ordered  from  low  value  to  high 
value,  the  Shell  Sort  subroutine  is  called  to  order  the 
data.  After  the  data  are  sorted  the  following  sample 
statistics  are  calculated  and  saved  for  later  use:  sample 
mean,  sample  variance  (unbiased  estimate  of  population 
variance),  maximum  likelihood  estimate  of  variance,  skewness 
and  kurtosis. 

2.  Data  Transformations 

McNeil  [Ref.  3]  claims  that  data  transformations  are 
the  most  powerful  tools  avialable  to  the  data  analyst.  Such 
adamant  statements  inevitably  invite  arguments  but  it  is  at 
least  true  that,  when  properly  applied,  data  trans¬ 
formations  can  be  very  useful  to  the  analyst.  They  can 
reveal  structure  in  the  data  that  is  otherwise  obscured  and 
can  reexpress  the  data  so  that  assumptions  such  as  normal¬ 
ity  are  more  nearly  satisfied.  The  following  data 
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transformations  are  certainly  not  exhaustive  but  are  three 
common  transformations  which  have  proved  useful  in  data 
analysis  work. 


The  square  root,  cube  root  and  natural  logarithm 
data  transformations  are  optional  after  the  raw  data  has 
been  entered  and  sorted.  The  original  data  may  be  restored 
to  the  Y  array  from  the  X  array  by  returning  to  the  data 
transformations  subroutine  and  selecting  the  'No  Transfor¬ 
mation'  option.  After  each  data  "  .insf  ormation  sample  sta¬ 
tistics  are  recalculated. 

3.  Probability  Distributions 

The  probability  distributions  menu  contains  five 
univariate  continuous  probability  distributions,  i.e.  the 
normal,  exponential,  chi-square,  Student 's-t  and  the  F 
distributions  and  three  discrete  probability  distributions, 
the  binomial,  negative  binomial  and  Poisson  distributions. 
The  discrete  distributions  calculate  both  point  probability 
and  cumulative  probability  while  the  continuous  distribu¬ 
tions  calculate  the  left  and  right  tail  cumulative  prob¬ 
abilities.  The  specific  algorithms  utilized  are  contained  in 
the  program  listings  at  the  end  of  this  paper. 

Kennedy  and  Gentle  [Ref.  4]  point  out  that  'rough' 
approximations  which  provide  two  or  three  figure  accuracy 
over  certain  ranges  of  parameter  values  would  be  adequate  if 
one  were  only  interested  in  probabilities.  There  is  a  need 
for  greater  accuracy  in  statistical  analysis  packages, 


however,  since  these  values  are  used  in  evaluating  other 
expressions  for  which  accurate  results  are  required.  A 
number  of  the  probability  distribution  algorithms  contained 
in  program  1  are  used  as  subroutines  by  other  probability 
distributions,  inverse  probability  distributions  and,  in 
later  programs,  used  for  evaluations  such  as  confidence 
intervals  and  tests  of  hypotheses.  Some  of  these  applica¬ 
tions  will  be  discussed  in  following  paragraphs. 

In  order  to  achieve  the  highest  degree  of  accuracy 
possible,  several  of  the  probability  distributions  combine 
two  or  more  algorithms.  It  is  common  that  the  faster 
algorithms  work  well  over  certain  parameter  ranges  but  lose 
accuracy  quickly  outside  these  ranges.  It  thus  became 
necessary  to  utilize  slower,  often  iterative  algorithms  in 
order  to  maintain  an  acceptable  level  of  accuracy.  Appendix 
A  shows  comparisons  of  probabilities  calculated  by  the 
algorithms  contained  in  this  package  and  tabled  values  given 
in  Handbook  of  Tables  for  Probability  and  Statistics  [Ref. 
5]. 

a.  Normal  Distribution 

The  central  limit  theorem  simply  stated  says 
that  the  sample  mean  of  a  random  sample  drawn  from  any 
distribution  with  finite  variance  is,  in  the  limit,  norm¬ 
ally  distributed  about  the  true  population  mean.  This 
theorem  makes  the  normal  distribution  one  of  the  most 
important  distributions  in  statistical  analysis.  A  number  of 
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the  statistical  inference  procedures  contained  in  this 
package  have  the  normal  distribution  as  their  foundation  and 
several  other  probability  distribution  subroutines  utilize 
relationships  with  the  normal  distribution. 

The  algorithm  for  the  normal  distribution  is 
based  on  a  polynomial  expansion  of  the  right  tail  cumu¬ 
lative  probability  given  in  Abramowitz  and  Stegun  [Ref. 6]. 
This  algorithm  gives  results  which  are  exact  when  compared 
to  tabled  values  (see  Appendix  A).  The  nominal  computation 
time  is  one  second. 

b.  Exponential  Distribution 

The  exponential  distribution  is  commonly  used  to 
represent  the  distribution  of  time  between  the  occurrences 
of  certain  events.  One  of  the  most  frequent  applications  is 
in  relaibilty  theory. 

The  exponential  cumulative  probability  is 
particularly  easy  and  fast  to  calculate.  The  closed-form 
expression  for  the  right  tail  cumulative  probability  is 
evaluated  and  the  resulting  probabilities  are  exact  to 
single  precision  accuracy. 

c.  Chi-square  Distribution 

The  importance  of  the  chi-square  distribution  in 
statistical  analysis  is  based  on  the  theorem  that  the  sum  of 
squares  of  k  independent  and  identically  distributed 
standard  normal  random  variables  has  a  chi-square 
distribution  with  k  degrees  of  freedom.  Extensions  of  this 


theorem  serve  to  test  hypotheses  concerning  and  establish 
confidence  intervals  for  the  population  variance  under  the 
assumption  of  normality. 

Two  different  algorithms  were  utilized  to 
approximate  chi-square  cumulative  probabilities.  A  rela¬ 
tionship  between  the  chi-square  distribution  and  the  normal 
distribution  which  is  given  in  Abramowitz  and  Stegun  [Ref. 
7]  was  used  for  the  large  degrees  of  freedom  case  (degrees 
of  freedom  greater  than  thirty).  This  algorithm  is  fast 
(approximately  one  second)  and  is  accurate  to  a  minimum  of 
three  decimal  places.  For  smaller  degrees  of  freedom, 
however,  the  accuracy  of  this  approximation  falls  off  rap¬ 
idly.  Poole  and  Brochers  [Ref.  8]  give  a  BASIC  program  based 
on  a  series  expansion  of  the  right  tail  cumulative 
probability.  This  algorithm  is  slower  (six  seconds  are 
required  for  thirty  degrees  of  freedom)  but  maintains  at 
least  three  decimal  place  accuracy  down  to  one  degree  of 
freedom. 

d.  Student's  -  t  Distribution 

The  t  distribution,  like  the  chi-square  distri¬ 
bution,  has  wide  application  in  statistical  analysis  work. 
By  definition,  if  a  standard  normal  random  variable  is 
divided  by  the  square  root  of  a  chi-square  random  variable 
over  its  degrees  of  freedom  then  the  resulting  random 
variable  has  a  t  distribution  with  the  same  degrees  of 
freedom.  It  can  be  shown  that  if  a  random  sample  of  size  n 
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is  drawn  from  a  normal  distribution  then  the  square  root  of 
the  sample  size  times  the  difference  between  the  sample  mean 
and  true  population  mean  all  divided  by  the  square  root  of 
the  sample  variance  has  a  t  distribution  with  n-1  degrees  of 
freedom.  An  important  point  is  that  this  t  statistic  does 
not  depend  on  the  true  population  variance. 

Two  algorithms  were  utilized  to  obtain 
t-distribution  cumulative  probabilities.  Abramowitz  and 
Stegun  [Ref.  9]  give  a  distributional  relationship  with  the 
normal  distribution  which  produces  good  results  (three  to 
four  decimal  place  accuracy  in  one  second)  when  degrees  of 
freedom  exceed  thirty  and  a  series  expansion  of  the 
cumulative  distribution  function  for  smaller  degrees  of 
freedom.  The  latter  algorithm  returns  four  or  more  decimal 
place  accuracy  in  one  to  three  seconds, 
e.  F  Distribution 

The  F  distribution  is  still  another  sampling 
distribution  of  great  importance  in  statistical  analysis 
work.  A  random  variable  which  is  the  ratio  of  two  inde¬ 
pendent  chi-square  random  variables  each  divided  by  its 
degrees  of  freedom  has  an  F  distribution  with  the  respective 
numerator  and  denominator  degrees  of  freedom.  This  statistic 
is  often  referred  to  as  the  F  ratio  and  serves,  for  example, 
to  test  hypotheses  concerning  differences  between  variances 
of  independent  normal  populations. 
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Kennedy  and  Gentle  [Ref. 10]  point  out  that 
existing  algorithms  for  F  distribution  probabilities  do  not 
give  a  high  degree  of  accuracy.  This  reference  does,  how¬ 
ever,  give  a  FORTRAN  program  based  on  a  series  expansion  of 
a  basic  integral  form  of  the  left  tail  cumulative  prob¬ 
ability  which  is  among  the  best  available  algorithms.  This 
package  utilizes  a  direct  translation  of  the  FORTRAN  pro¬ 
gram  given  in  the  above  reference.  The  algorithm  generally 
produces  three  decimal  place  accuracy  and  occasionally  four 
decimal  place  accuracy.  Computation  time  is  a  function  of 
degrees  of  freedom  and  ranges  from  a  nominal  one  second  for 
small  degrees  of  freedom  to  appoximately  seven  seconds  for 
120  numerator  and  denominator  degrees  of  freedom, 
f.  Discrete  Distributions 

The  binomial,  negative  binomial  and  Poisson 
distribution  algorithms  perform  direct  calculations  of  their 
respective  probability  functions  to  produce  point 
probabilities.  Cumulative  probabilities  are  calculated  by 
summation  of  point  probabilities  with  one  exception.  The 
binomial  cumulative  probability  utilizes  the  Poisson 
approximation  if  the  number  of  trials  is  greater  than  45  and 
the  probability  of  occurrence  on  a  single  trial  is  either 
less  than  or  equal  to  .1  or  greater  than  or  equal  to  .9.  The 
normal  approximation  is  used  if  the  number  of  trials  is 
greater  than  45  and  the  probability  of  occurrence  on  a 
single  trial  times  the  number  of  trials  is  greater  than  5. 
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All  point  probabilities  are  accurate  to  four  or 
more  decimal  places.  The  normal  and  Poisson  approximations 
to  the  binomial  cumulative  probability  are  accurate  to  three 
or  more  decimal  places;  the  other  cumulative  probability 
procedures  produce  a  minimum  of  four  decimal  place  accuracy. 

4 .  Inverse  Probability  Distributions 

Exponential  percentiles  are  calculated  with  the  same 
ease  as  exponential  probabilities  and  good  closed  form 
approximations  for  normal  and  chi-square  percentiles  were 
found.  Abramowitz  and  Stegun  [Ref.  11]  was  the  source  of  the 
normal  percentiles  approximation  while  the  algorithm  for 
chi-square  percentiles  is  a  direct  translation  of  FORTRAN 
program  listed  in  "Collected  Algorithms  from  ACM"  [Ref.  12]. 
These  algorithms  give  accurate  results  when  compared  to 
tabled  values  (see  Appendix  2)  and  all  execute  in  one  to 
three  seconds. 

It  was  more  difficult  to  obtain  accurate  results  for 
t-distribution  and  F-distribution  percentiles.  Abramowitz 
and  Stegun  [Ref.  13]  give  closed  form  approximations  for 
both  distributions  which  perform  well  for  larger  degrees  of 
freedom  (ten  or  greater  for  the  t-distribution  and 
twenty /twenty  or  greater  for  the  F-distribution).  These 
approximations,  however,  lose  accuracy  rapidly  for  smaller 
degrees  of  freedom.  In  these  cases  it  was  necessary  to 
resort  to  an  algorithm  which  starts  with  a  rough 
approximation  of  the  percentile  and,  calling  the  respective 
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probability  distribution  subroutine,  iteratively  refines  the 
approximation  until  the  returned  probability  converges  to 
the  specified  value.  This  algorithm  produces  accurate 
percentiles  but  computation  time  can  extend  up  to  several 
minutes. 

C .  PROGRAM  2 

Program  2  contains  the  six  subroutines  which  are 
classified  as  exploratory  data  analysis  procedures.  Their 
primary  purpose  is  to  provide  information  about  the  data 
Craw  or  transformed)  which  reveals  patterns,  trends,  spread, 
symmetry,  how  closely  the  data  follows  some  classical 
distribution,  etc.  The  information  about  the  data  is 
presented  in  two  basic  formats.  The  first  two  subroutines  in 
this  program  present  a  numerical  summary  of  the  data  while 
the  last  four  subroutines  give  graphical  representations 
(plots)  of  the  data. 

1.  Numerical  Summaries 

The  first  numerical  summary  of  the  data  displays 
several  classical  sample  statistics,  each  of  which  is  a 
measure  of  some  facet  of  the  data's  structure.  A  measure  of 
the  central  location  and/or  typical  value  of  the  data  is 
given  by  the  sample  mean.  Two  measures  of  the  spread  of  the 
data  given.  The  first  is  the  sample  variance,  i.e.  the 
unbiased  estimate  of  population  variance  under  the 
assumption  of  normality,  and  the  second  is  the  maximum 


likelihood  estimate  of  population  variance  under  the  same 
assumption.  The  sample  statistic  called  skewness  provides  a 
measure  of  the  symmetry  of  the  data.  A  value  of  zero 
indicates  a  symmetric  distribution  while  positive  and 
negative  values  indicate  right  and  left  skewed  distribu¬ 
tions  respectively.  Finally,  kurtosis  provides  a  measure  of 
how  much  of  the  data  is  distributed  into  the  tail  of  the 
distribution.  For  reference,  a  normal  distribution  has 
kurtosis  of  zero  while  the  exponential  distribution,  which 
has  a  longer  tail  than  the  normal  distribution,  has  kur¬ 
tosis  of  six. 

The  second  numerical  summary  of  the  data  is  the 
seven  number  summary.  The  "seven”  refers  to  the  basic 
elements  of  the  display.  These  consist  of  the  median,  upper 
and  lower  quartiles  (75  and  25  percentiles),  the  upper  and 
lower  eighths  (87.5  and  12.5  percentiles  )  and  the  extremes 
(maximum  and  minimum) . 

Like  the  mean,  the  median  gives  a  measure  of  the 
central  or  typical  value  of  the  data.  The  three  remaining 
pairs  of  numbers  give  a  measure  of  the  spread  of  the  data. 
Two  other  numbers  associated  with  each  of  these  pairs  give  a 
measure  of  skewness  of  the  data.  The  first  is  simply  the 
midspread  or  average  of  each  of  the  pairs  which  can  be 
compared  with  the  median  and  with  each  other.  The  second 
measure  of  skewness  makes  this  comparison  a  little  more 
automatic.  If  M  represents  the  median,  Q1  the  lower 
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quart ile,  Qu  the  upper  quart ile  then  ( ( (Qu-Ql ) /2 )-M) / (Qu-Ql ) 
will  be  zero  if  the  quartiles  are  symmetric  about  the  median 
while  a  positive  or  negative  number  will  suggest  the 
corresponding  direction  of  skewness.  A  similar  number  is 
calculated  for  eighths  and  for  extremes. 

2.  Data  Plots 

The  histogram  is  a  graphical  representation  of  the 
data  in  which  each  point  is  assigned  to  a  class  interval 
depending  upon  its  value.  The  number  of  data  points  in  a 
class  interval  determine  the  height  of  the  graphical  bar 
representing  that  cell.  The  resulting  display  is  then  a 
picture  of  the  distribution  which  generally  approximates  the 
shape  of  the  underlying  probability  distribution  function. 

An  important  parameter  in  determining  the  usefulness 
of  the  histogram  is  the  width  of  the  class  interval.  The 
extreme  cases  illustrate  this  point.  If  the  class  interval 
is  so  wide  that  all  data  points  fall  into  a  single  cell  then 
about  the  only  information  provided  is  the  number  of  data 
points  in  the  sample.  On  the  other  hand,  if  the  class 
interval  in  so  narrow  that  every  data  point  belongs  to  a 
separate  cell  then  the  picture  is  very  difficult  to 
interpret.  The  histogram  subroutine  contained  in  this 
program  can  have  up  to  fifteen  cells.  The  initial  class 
interval  is  automatically  determined  so  that  there  will  be  a 
range  of  at  least  five  cells  from  the  minimum  to  the  maximum 
data  point.  Some  of  these  cells  may  be  empty.  After  the 
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initial  histogram  is  drawn  the  user  is  given  the  option  to 
increase  the  class  interval  or,  subject  to  the  fifteen  cell 
limitation,  decrease  the  class  interval. 
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A  graphical  representation  of  the  data  similar  to 
but  containing  more  information  than  the  histogram  is  the 
stem  and  leaf  plot.  The  significant  difference  between  the 
two  plots  is  that  the  incremental  elements  in  each  cell  of 
the  stem  and  leaf,  i.e.  the  leaves,  are  numbers  instead  of 
an  incremental  portion  of  a  solid  bar.  The  most  significant 
digit  of  each  data  point  is  represented  Dy  the  class 
interval  labels  running  along  the  stem  (vertical  axis)  of 
the  plot  and  the  leaves  are  the  next  most  significant  digit 
of  each  data  point. 

McNeil  CRef.  14]  suggests  several  advantages  the 
stem  and  leaf  enjoys  over  the  histogram.  As  well  as  pro¬ 
viding  the  same  information  about  the  shape  of  the  distri¬ 
bution  it  reveals  intracell  distribution.  It  is  also  pos¬ 
sible  to  obtain  reasonable  estimates  of  percentiles  simply 
by  counting  leaves. 

As  with  the  histogram,  the  initial  class  interval  is 
automatically  determined  by  the  computer.  After  the  first 
plot  the  user  is  again  allowed  to  redraw  the  plot  with  a 
different  class  interval,  this  time  subject  to  a  limitation 
of  sixteen  cells. 

A  fairly  simple  procedure  for  testing  the  conformity 
of  the  data  to  some  specified  theoretical  probability 
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distribution  is  to  plot  the  ordered  sample  against  the 
corresponding  theoretical  percentiles.  A  one  to  one 
correspondence  would,  of  course,  plot  as  a  straight  line. 
Systematic  departure  from  a  straight  line  plot  indicates 
that  the  sample  does  not  conform  well  to  the  theoretical 
distribution . 

This  procedure  was  implemented  for  the  normal  and 
exponential  distributions  and  these  two  plots  are  the  final 
graphical  representations  of  the  data  contained  in  this 
program.  These  plots  perform  well  for  fairly  significant 
departures  from  the  theoretical  distributions.  Due  to  the 
relatively  low  resolution  graphics  capability  of  the  TRS-80 
video  display,  however,  slight  to  moderate  departures  from 
the  theoretical  distributions  are  difficult  to  detect. 

D.  PROGRAM  3 

The  statistical  analysis  procedures  contained  in  program 
3  are  classified  as  parametric  statistical  inference  proce¬ 
dures.  They  include  classical  tests  of  hypotheses  and  cal¬ 
culation  of  confidence  intervals  for  normal,  exponential  and 
Bernoulli  population  parameters.  The  specifics  of  these 
classical  procedures  are  given  in  almost  all  first  course 
statistics  textbooks  and  will  not  be  reiterated  here.  The 
discussion  will  be  limited  to  the  basic  format  of  the 
procedures.  Major  portions  of  each  of  the  algorithms 
contained  in  this  program  have  already  been  discussed,  i.e. 
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the  probability  distributions  and  inverse  distributions 
which  were  developed  for  program  1.  A  detailed  block  dia¬ 
gram  of  the  hypotheses  tested  and  confidence  intervals 
calculated  by  this  program  is  given  in  Figure  3. 

1.  Tests  of  Hypotheses 

The  basic  format  for  the  various  test  of  hypotheses 
is  as  follows.  Once  the  user  has  selected  the  assumed 
distribution  and  the  specific  null  hypothesis  to  be  tested 
then  the  appropriate  test  statistic  (usually  a  combination 
of  sample  statistics  already  calculated  in  program  1)  is 
calculated  and  displayed.  Using  this  test  statistic,  the 
appropriate  probability  distribution  subroutine  is  called 
and  the  probability  at  which  this  statistic  will  become 
statistically  significant  (P-value)  is  returned  and  dis¬ 
played  .  The  user  is  then  prompted  to  enter  the  probability 
of  type  I  error  (alpha  value)  he  desires  to  establish  for 
the  test.  If  alpha  is  less  than  the  P-value  then  the  null 
hypothesis  is  accepted,  otherwise  it  is  rejected. 

A  more  classical  approach  to  hypothesis  testing  is 
to  calculate  a  value  for  a  statistically  significant  sta¬ 
tistic  given  the  alpha  value  and  then  compare  the  actual 
test  statistic  calculated  from  the  sample  to  this  value  to 
determine  acceptance  or  rejection.  This  approach  was  re¬ 
jected  in  favor  of  the  one  given  above  for  two  reasons. 
First  the  accuracy  and  speed  of  the  probability  distribu¬ 
tion  subroutines  are  generally  better  than  those  for  the 
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BLOCK  DIAGRAM  OF  PROGRAM  #3 
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Hypotheses  Concerning  Mean 

a)  MU  3  MUo  -vs-  MU  =/=  MUo 

b)  MU  <3  MUo  -vs-  MU  >  MUo 

c)  MU  >  MUo  -vs-  MU  <  MUo 
Hypotheses  Concerning  Variance 

a)  VAR  =  VARo  -vs-  VAR  */*  VARo 

b)  VAR  <=  VARo  -vs-  VAR  >  VARo 

c)  VAR  >*  VARo  -vs-  VAR  <  VARo 
Confidence  Interval  for  Mean 
Confidence  Interval  for  Variance 


FIGURE  3 
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inverse  distribution  subroutines. 


Calculation  of 
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P-value  uses  the  probability  distribution  subroutines  while 
calculation  of  a  statistically  significant  value  for  the 
statistic  uses  the  inverse  probalility  subroutines.  Second, 
and  perhaps  most  importantly,  the  displayed  P-value  provides 
me  ;-e  information  than  a  simple  accept/reject  criteria. 

2.  Confidence  Intervals 

The  format  for  the  confidence  interval  subroutines 
is  similar  to  that  utilized  for  tests  of  hypotheses.  The 
user  selects  the  assumed  population  and  the  desired 
confidence  level.  After  this  information  has  been  entered 
the  appropriate  inverse  probability  distribution  is  called 
and  returns  the  value  at  which  a  corresponding  sample  sta¬ 
tistic  would  become  significant.  A  confidence  bound  for  the 
parameter  of  interest  is  calculated  from  this  value  and 
displayed.  This  algorithm  is  first  utilized  to  calculate 
two  sided  confidence  limits  and  then  a  upper  and  lower  one 
sided  confidence  limit. 

3 .  PROGRAM  4 

This  program  contains  two  robust  and  one  nonparametric 
statistical  inference  procedures. 

1.  Robust -t 

When  it  is  suspected  that  the  random  sample  contains 
outliers,  then  it  is  often  desirable  to  obtain  an  estimate 
for  the  population  mean  that  places  less  weight  on  the 
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extreme  points.  Two  techniques  for  obtaining  such  an 
estimate  are  the  Winsorized-t  and  trimmed-t  procedures. 
Winsorization  is  accomplished  by  symmetrically  setting  one 
or  more  of  the  extreme  values  of  the  ordered  sample  equal 
to  its  nearest  neighbor.  Trimming,  on  the  other  hand,  omits 
the  symmetrically  placed  extreme  values.  It  should  be  noted 
that  in  both  cases  there  is  an  implicit  assumption  that  the 
true  distributional  form  is  symmetric.  The  depth  to  which 
the  extreme  values  are  Winsorized/ trimmed  is  referred  to  as 
the  level  of  Winsorization/trimming .  After  the  data  are 
Winsorized/trimmed  the  point  estimate  of  the  population  mean 
is  calculated  in  the  usual  manner.  Dixon  and  Massey  [Ref. 
15]  point  out  that  there  is  little  loss  of  efficiency  if  the 
data  are  Winsorized  (at  mild  levels)  when  the  extreme  points 
are  actually  valid  and  that  much  improved  estimates  result 
when  the  extremes  are  not  valid  observations.  Trimmed 
estimates  are  somewhat  less  efficient. 

It  has  also  been  shown  that  the  t-ratio  which  is 
calculated  using  the  sample  variance  of  the  Winsorized  data, 
multiplied  by  an  appropriate  constant  (see  Dixon  and  Massey 
[Ref.  16]  for  details)  closely  follows  the  t-distribution 
with  h-1  degrees  of  freedom  where  h  is  the  number  of 
obervations  not  Winsorized/trimmed.  This  statistic  is  used 
to  calculate  confidence  bounds  for  the  true  population  mean. 

This  program  allows  Winsorizing/trimming  of  the  data 
up  to  the  tenth  level.  Computation  time  is  a  function  of 
the  selected  level  but  is  not  excessive  in  any  case. 
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2.  Jackknife 


If  the  distribution  from  which  a  random  sample  is 
drawn  is  normal  then  a  confidence  interval  for  the  true 
population  variance  is  properly  based  on  the  chi-square 
sampling  distribution.  Such  confidence  intervals  are, 
however,  very  sensitive  to  the  underlying  distribution  and 
do  not  perform  well  when  the  assumption  of  normality  is 
violated.  A  robust  method  for  handling  departures  from 
normality  is  the  jackknife  technique.  The  jackknife 
technique  is  discussed  in  some  detail  in  Mosteller  and  Tukey 
[Ref.  17]. 

This  procedure,  more  than  any  other  in  this  package, 
shows  up  the  speed  disadvantage  of  an  interpreted  language 
like  TRS-80  Level  II  BASIC.  The  crux  of  this  procedure  is 
to  divide  the  data  into  g  groups  of  size  h  and  then 
iteratively  calculate  the  sample  variance  g  times,  each  time 
leaving  out  one  group  of  h.  The  usual  method  is  to  let  h=l 
and  therefore  g=n  where  n  is  the  size  of  the  sample.  This 
eliminates  any  arbitrariness  in  the  formation  of  the  groups 
but  means  that  a  sample  of  one-hundred  data  points  requires 
one-hundred  calculations  of  the  sample  variance.  This 
specific  example  required  25  minutes  of  calculation  time. 
As  a  partial  solution  to  this  problem,  the  user  is  allowed 
to  set  h  to  any  integer  between  one  and  five  so  long  as  the 
data  size  is  evenly  divisible  by  h.  When  h  is  greater  than 
one  the  ordered  data  must  be  randomized  to  avoid 
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systematically  leaving  out  the  h  smallest  values  first,  then 
the  next  h  smallest  values,  etc.  Randomizing  the  data  does 
introduce  some  of  the  arbitrariness  mentioned  earlier  and 
results  in  slightly  different  answers  each  time  the 
procedure  is  repeated.  A  number  of  sample  problems,  however, 
displayed  reasonable  stability  from  one  calculation  to  the 
next.  Application  of  the  jackknife  technique  to  a  sample  of 
one  hundred  observations  divided  into  twenty  groups  of  size 

j 

5  required  approximately  five  minutes  of  calculation  time. 
3.  Confidence  Interval  for  the  Median 

By  the  definition  of  the  median,  the  probability 
that  any  random  observation  drawn  from  any  continuous 
population  is  less  than  or  equal  to  the  median  equals 
one-half.  Based  on  this  fact  it  can  be  shown  that  the 
probability  that  the  median  lies  between  the  ith  and  the  jth 
order  statistic  of  a  random  sample  has  a  binomial 
distribution  with  parameters  p=.5  and  n  equal  to  the  sample 
size.  Since  no  assumptions  are  made  about  the  population 
from  which  the  random  sample  is  drawn  other  than  that  it  is 
continuous,  it  is  possible  to  obtain  a  truly  nonparanetric 
confidence  interval  for  the  population  median. 

Confidence  intervals  for  the  median  calculated  by 
this  program  are  in  exact  agreement  with  tabled  values 
contained  in  Dixon  and  Massey  [Ref. 18],  Calculation  time 
varies  from  a  few  seconds  to  several  minutes  depending  on 
the  sample  size. 
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F .  PROGRAM  5 


Program  5  contains  a  multiple  linear  regression 
procedure  which,  by  the  method  of  Ordinary  Least  Squares 
(OLS),  estimates  the  coefficients  of  the  basic  linear  model, 
Y  =  X  B  +  e,  where  Y  is  the  vector  of  observations  of  the 
dependent  variable,  X  is  the  matrix  of  independent 
variables,  B  is  the  vector  of  coefficients  estimated  and  e 
is  the  error  vector.  The  program  also  calculates  and 
displays  a  number  of  the  standard  statistics  each  of  which 
measures  some  facet  of  the  quality  of  the  OLS  solution. 

The  computational  method  used  by  this  program  is 
straightforward  matrix  algebra  applied  to  the  basic  linear 
model.  The  greatest  difficulty  with  this  method  is  in 
obtaining  accurate  results  when  the  X'X  matrix  is  inverted. 
According  to  Draper  and  Smith  [Ref.  19]  one  of  the  prime 
causes  of  roundoff  error  during  this  operation  is  the 
presence  of  widely  differing  orders  of  magnitude  in  the 
numbers  involved.  In  order  to  minimize  this  problem  the 
data  are  normalized  or  centered  as  described  in  the 
aforementioned  reference.  Two  additional  advantages  result 
from  normalizing  the  data.  If  Z  represents  the  normalized  X 
matrix  then  Z'Z  is  the  correlation  matrix  and  can  be 
displayed  to  provide  the  analyst  with  additional  information 
about  the  data.  The  coefficients  which  are  directly 
estimated  using  the  normalized  data  are  referred  to  as  the 
beta  coefficients.  The  beta  coefficients  have  the 
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advantage  of  being  independent  of  the  units  of  measurement 
of  the  original  data.  This  program  displays  both  the 
standard  regression  equation  coefficients  and  the  beta 
coefficients . 

Other  standard  statistics  calculated  and  displayed  are 
the  ANOVA  table  statistics,  R-square,  adjusted  R-square, 
standard  error  of  estimate,  partial-F  for  the  coefficients 
and  standard  error  of  the  coefficients.  Each  of  these 
statistics  with  the  exception  of  the  adjusted  R-square 
statistic  is  discussed  in  detail  in  Draper  and  Smith  [Ref. 
20].  The  adjusted  R-square  statistic  is  discussed  in 
Intriligator  [Ref.  21]. 

A  perhaps  not  so  standard  feature  of  this  program  is  a 
display  of  the  diagonal  elements  of  the  hat  matrix.  The  hat 
matrix  is  defined  as  X(X'X)~1X',  where  these  symbols  have 
the  same  meaning  as  given  earlier.  The  diagonal  elements 
of  this  matrix  give  a  measure  of  the  influence  or  leverage 
of  the  ith  observation  of  the  response  variable  on  the 
corresponding  fitted  value.  Large  values  are  indicative  of 
high  leverage  observations  and  may  indicate  that  these 
observations  are  outliers.  Hoaglin  and  ffelsch  [Ref.  22] 
give  as  a  rule  of  thumb  for  'large'  values,  any  value  in 
excess  of  twice  the  rank  of  the  hat  matrix  divided  by  the 
number  of  observations.  All  diagonal  elements  of  the  hat 
matrix  are  displayed  and  large  values  are  highlighted. 
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This  program  allows  the  user  to  regress  the  dependent 
variable  on  all  or  any  subset  of  the  independent  variables. 
It  is  therefore  possible  for  the  user  to  use  various 
algorithms  for  selecting  the  'best  subset'  of  -  barriers. 

The  final  feature  of  this  program  is  a  plot  of  the 
estimates  of  the  response  variable  against  the  residuals. 
According  to  McNeil  [Ref.  23]  and  other  recognized 
authorities  in  the  field  of  data  analysis,  such  a  display  of 
the  residuals  is  one  of  the  best  tools  in  existence  for 
obtaining  a  measure  of  the  overall  fit  of  the  data  to  the 
model . 

The  regression  procedure  contained  in  this  program  was 
tested  against  the  Portland  Cement  example  contained  in 
Draper  and  Smith  [Ref.  24].  The  data  are  thirteen 
observations  of  a  response  variable  and  four  carrier 
variables.  This  regression  was  completed  in  48  seconds. 
The  estimated  regression  equation  coefficients  and  all 
statistics  agreed  with  the  reference  to  a  minimum  of  three 
decimal  places  and  in  most  cases  four  or  more  decimal 
places. 

G.  PROGRAM  6 

Program  6  is  the  last  program  in  this  package  and 
contains  ANalysis  Of  VAriance  (ANOVA)  procedures.  The 
algorithms  for  the  ANOVA  procedures  were  taken  from  Duncan 
[Ref.  25]  who  makes  the  claim  that  ANOVA  is  one  of  the  most 
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powerful  tools  in  statistical  analysis.  He  further  states 
that  the  basic  procedure  of  ANOVA  consists  of  classifying 
and  cross-classifying  some  statistical  result  of  interest  to 
determine  if  a  specified  classification  is  statistically 
important  in  affecting  the  result.  A  potential  application 
of  ANOVA  was  given  in  an  earlier  section  of  this  paper. 

It  was  attempted  to  include  as  much  flexibility  in  the 
ANOVA  procedures  contained  in  this  program  as  feasible. 
One,  two  and  three-way  classification  of  the  statistical 
result  of  interest  is  allowed.  The  one-way  classification 
procedure  allows  up  to  ten  levels  of  the  classification 
(ten  ranks  in  the  example  presented  earlier)  and  up  to 
twenty  observations  at  each  level.  The  program  also 
accomodates  an  unequal  number  of  observations  at  each  level. 
The  two-way  classification  ANOVA  procedure  allows  ten  levels 
of  each  classification  and  up  to  ten  replications.  The 
three-way  classification  again  allows  up  to  ten  levels  of 
each  of  the  three  classifications  but  due  to  computer  memory 
limitations  does  not  allow  for  replications.  The  two-  and 
three-way  classification  procedures  calculate  interaction 
statistics  as  well  as  the  main  classification  statistics. 
All  three  procedures  are  accurate  to  a  minimum  of  three 
decimal  places. 
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IV.  CONCLUSION 


When  microcomputers  were  first  introduced  only  a  few 
years  ago,  they  were  widely  perceived  as  interesting  toys 
used  primarily  for  video  games.  This  perception  is  rapidly 
changing  and  today  microcomputers  are  increasingly  accepted 
as  serious  tools  for  many  small  business  applications.  Just 
as  the  military  services  have  adopted  electric  typewriters, 
photo-copy  machines  and  other  modern  office  machinery,  it  is 
not  hard  to  imagine  that  relatively  inexpensive  microcomput¬ 
ers  will  also  be  adopted  and  find  their  way  to  all  levels  of 
command.  A  popular  commercial  application  of  microcomputers 
is  in  the  area  of  wordprocessing.  It  may  well  be  that  this 
will  be  the  initial  application  of  microcomputers  in  the 
military  services.  Whatever  the  intended  application  might 
be,  the  end  result  will  be  ready  access  to  a  high  degree 
of  computational  power. 

If  this  potential  ready  access  to  computational  power  is 
to  be  put  to  use  by  the  military  officer  trained  in 
specialized  areas  such  as  operations  research,  then  it  is  up 
to  these  officers  to  develop  the  specialized  software. 
Specialized  software  for  microcomputers  has  been  the  subject 
of  this  thesis.  It  has  presented  a  software  package 
containing  some  of  the  basic  statistical  analysis  tools 
required  for  effective  analysis  work.  Many  areas  of  interest 
to  the  trained  analyst  have  not  been  addressed.  Other  recent 
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efforts  in  this  direction  are  addressed  by  Morgeson  [Ref. 
26]  who  developed  a  similar  package  for  the  Apple  II  Plus 
microcomputer  and  Duff  [Ref.  27]  who  has  developed  a  network 
optimization  package  for  the  same  microcomputer.  Additional 
efforts  in  the  development  of  statistical  analysis  software 
are  highly  recommended  and  encouraged. 
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ACCURACY  COMPARISONS  FOR  PROBABILITIES 
NORMAL  DISTRIBUTION 

PROBABILITY 


STATISTIC 

APPROXIMATION 

TABLED  VALUE 

0.00 

.5000 

.5000 

0.25 

.5987 

.5987 

0.50 

.6915 

.6915 

0.75 

.7734 

.7734 

1.00 

.8413 

.8413 

1.25 

.8944 

.8944 

1.50 

.9332 

.9332 

1.75 

.9599 

.9599 

2.00 

.9772 

.9772 

2.25 

.9878 

.9878 

2.50 

.9938 

.9938 

2.75 

.9970 

.9970 

3.00 

.9987 

.9987 

3.25 

.9994 

.9994 

3.50 

.9998 

.9998 

3.75 

.9999 

.9999 

4.00 

1.0000 

1.0000 
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CHI-SQUARE  DISTRIBUTION 


PROBABILITY 


STATISTIC 

D.F. 

APPROXIMATION 

TABLED  VAI.riP 

7.88 

1 

.9950 

.9950 

5.99 

2 

.9500 

.9500 

1.21 

3 

.2495 

.2500 

3.36 

4 

.5005 

.5000 

9.24 

5 

.9001 

.9000 

2.18 

8 

.0250 

.0250 

3.57 

12 

.0100 

.0100 

27.5 

15 

.9751 

.9750 

34.8 

18 

.9900 

.9900 

10.1 

19 

.0496 

.0500 

9.59 

20 

.0250 

.0250 

33.9 

22 

.9497 

.9500 

34.4 

25 

.9004 

.9000 

27.3 

28 

.4990 

.5000 

49.6 

29 

.9900 

.9900 

47.0 

30 

.9751 

.9750 
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STUDENT’S  -  t  DISTRIBUTION 


PROBABILITY 


STATISTIC 

D.F. 

APPROXIMATION 

TABLED  VALUE 

31.821 

1 

.9900 

.9900 

1.886 

2 

.9000 

.9000 

.271 

4 

.6001 

.6000 

3.365 

5 

.9900 

.9900 

1.943 

6 

.9500 

.9500 

.703 

9 

.7501 

.7500 

2.228 

10 

.9750 

.9750 

4.140 

14 

.9995 

.9995 

1.341 

15 

.9001 

.9000 

.257 

19 

.6000 

.6000 

2.086 

20 

.9750 

.9750 

2.492 

24 

.9900 

.9900 

3.725 

25 

.9995 

.9995 

1.311 

29 

.8999 

.9000 

2.750 

30 

.9949 

.9950 

1.684 

40 

.  9500 

.9500 

1.296 


60 


9000 


9000 


DISTRIBUTION 


PROBABILITY 


STATISTIC 

D.F. /D.F. 

APPROXIMATION 

TABLED  VALUE 

647.80 

1/1 

.9750 

.9750 

198.50 

1/2 

.9950 

.9950 

53 . 59 

3/1 

.9000 

.9000 

5.79 

2/5 

.9501 

.9500 

21.92 

4/6 

.9990 

.9990 

4.24 

5/10 

.9751 

.9750 

5.76 

6/12 

.9950 

.9950 

1.93 

8/25 

.9001 

.9000 

2.16 

10/30 

.9495 

.9500 

3.64 

12/40 

.9990 

.9990 

2.06 

15/60 

.9749 

.9750 

2.09 

24/120 

.9950 

.9950 

5.23 

10/3 

.9000 

.9000 

46.76 

15/4 

.9990 

.9990 

5.17 

20/6 

.9750 

.9750 

2.63 

30/30 

.9950 

.9950 

63.06 

120/1 

.9000 

.9000 
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APPENDIX  3 


ACCURACY  COMPARISONS  FOR  PERCENTILES 
INVERSE  NORMAL  DISTRIBUTION 

PERCENTILE 


PROBABILITY 

APPROXIMATION 

TABLED  VALUE 

.0005 

-3.29 

-3.29 

.0102 

-2.32 

-2.32 

.2514 

-0.67 

-0.67 

.4960 

-0.01 

-0.01 

.5199 

0.05 

0.05 

.6554 

0.40 

0.40 

.7549 

0.69 

0.69 

.9015 

1.29 

1.29 

.9251 

1.44 

1.44 

.9750 

1.96 

1.96 

.9901 

2.33 

2.33 

.9951 

2.58 

2.58 

.9990 

3.09 

3.09 

.9995 

3.29 

3.29 
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INVERSE  CHI-SQUARE  DISTRIBUTION 

!  PERCENTILE 


PROBABILITY 

D.F. 

APPROXIMATION^ 

TABLED  VALUE 

.500 

1 

.45.5 

.455 

.950 

2 

5.99 

5.99 

.025 

3 

.216 

.216 

.990 

5 

15.1 

15.1 

.005 

8 

1.34 

1.34 

.975 

10 

20.5 

20.5 

.010 

12 

3.57 

3.57 

.900 

15 

22.3 

22.3 

.995 

20 

40.0 

40.0 

.750 

22 

26.0 

26.0 

.025 

25 

13.1 

13.1 

.975 

28 

44.5 

44.5 

.100 

30 

20.6 

20.6 
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INVERSE  STUDENT'S  -  t  DISTRIBUTION 


PERCENTILE 

PROBABILITY 

D.F. 

APPROXIMATION 

TABLED  VALUE 

.9900 

1 

31.840 

31.821 

.9500 

2 

2.920 

2.920 

.0250 

3 

-3.182 

-3.182 

.7500 

5 

.726 

.727 

.9750 

10 

2.229 

2.228 

.9995 

15 

4.073 

4.073 

.0500 

18 

-1.734 

-1.734 

.9000 

20 

1.326 

1.325 

.6000 

25 

.256 

.256 

.2500 

28 

-.683 

-.683 

.9995 

30 

3.646 

3.646 

.0100 

40 

-2.424 

-2.423 

.0005 

60 

-3.460 

-3.460 

.9950 

120 

2.618 

2.617 
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INVERSE  F  -  DISTRIBUTION 

PERCENTILE 


PROBABILITY 

D.F./D.F. 

APPROXIMATION 

TABLED  VALUE 

.975 

1/1 

647.50 

647.80 

.995 

1/2 

198.10 

198.50 

.900 

3/1 

53.61 

53.59 

.950 

2/5 

5.79 

5.79 

.990 

4/6 

9.15 

9.15 

.975 

5/10 

4.24 

4.24 

.995 

6/12 

5.76 

5.76 

.900 

8/25 

1.93 

1.93 

.950 

10/30 

2.17 

2.16 

.990 

12/40 

2.67 

2.66 

.975 

15/60 

2.06 

2.06 

.995 

24/120 

2.09 

2.09 

.900 

10/3 

5.23 

5.23 

.975 

60/20 

2.23 

2.22 

.995 

30/30 

2.63 

2.63 

.900 

120/1 

63.34 

63.06 

.950 

120/120 

1.35 

1.35 
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COMPUTER  LISTINGS 


n*Tvt  4  v 


/ 


10  REM  •••  INSTRUCTIOHS/PROORAM  SELECTION  SUBROUTINE 

20  IF  K9O0  GOTO  1000 ELSE  CLEAR 

30  RANDOM 

40  CLEAR  330 

30  DIM  X(201).Y(201),NI(15> 

*0  DEFINT  I-K  !  DEFSTR  Z 

63  LB«-CHRS<123> :  RB*-CHR»(123)  1  MBS-CHR»U76> :  8L»CHR*<232) 

70  REM  •  •  •  INSTRUCTIONS 

80  CLS  :  PRINT  TAB(20)!“STATISTICAL  ANALYSIS*  1  PRINT  TAB<23>i"by  R.  P.  Isbell*  *.  PRINT  T  AB<  11  >r  Naval  ft 
Stgraduate  School.  Monterey,  C*.“ 

90  IF  K9O0  GOTO  290 

100  PRINT  :  PRINT*  Thi«  program  is  the  first  of  sue  chained  '  programs  in* 

110  PRINT*ttus  package.  It  contains  the  first  sat  of  statistical  analy-* 

120  PRINT*sis  subroutines  and  also  serves  as  the  control  module  for  the* 

130  PRIKT’package.  This  program  must  always  be  loaded  first  as  it  accom-* 

140  PRHfT*plishes  variable  definition,  dimensions  arrays  and.  most  impor-* 

130  PRINT*tantly,  positions  the  variable  painter  to  allow  subsequent  * 

160  PRINT”programs  to  be  lpaded  without  loss  of  variables.  If  at  any  * 

170  PRINT*time  it  becomes  necessary  to  interupt  program  execution  and  re-* 

180  PRIKT*issue  the  RUN  command,  the  action  must  be  taken  with  Program  *1* 

190  PRINT" (141.  this  program)  loaded.* 

200  PRINT  :  PRINT*  Press  the  SPACE  BAR  to  display  additional  information.*; 

210  IF  INKEY*  O  *  *  GOTO  210 

220  CLS  :  PRINT*  Data  input  for  programs  81  thru  84  is  accomplished  in  pro-  gram  81  and  is  limited  to  a  data 
vector  of  200  observations.  All  data  and  variables  are  saved  as  you  switch  bade  and  forth  between  the  first  fo 
ur  programs.* 

230  PRUTKFRIHT*  When  either  program  83  or  program  86  is  loaded  all  current  variables  are  cleared  in  order  t 
0  provide  sufficient  memory  for  the  multidimensional  data  arrays  used  by  these  programs.  Any* 

240  PRIMT*data  which  was  entered  in  program  81  that  you  want  to  retain  should  be  saved  to  tape  prior  to  loadl 
ng  either  of  the  last  two  programs. 

230  PRINT  0896, "PRESS  SPACE  BAR  TO  DISPLAY  PROGRAM  SELECTION  MENU:* 

260  IF  INKEY *0“  *  GOTO  260 

270  K9-1  :  REM  •••  PROGRAM  SELECTION  MENU  *  *  * 

280  CLS  i  PRINT  TAB<20>;*PROGRAM  SELECTION  MENU* 

290  PRINT  9128, *81  Data  I/O.  Transformations,  Prob.  &  Inv.  Prob.  Distributions’ STUNT 

300  PRINT* 62  Sample  Stat's.  7-Num-Sum,  Data  Plots*:PRINT 

310  PRINT*83  Parametric  Tests  of  Hypotheses  &  Confidence  Interv  alt  "‘.PRINT 

320  PRINT* 84  Robust  Estimates  and  Canfidsncs  Intervals*  iPRINT 

330  PRINT*83  Multiple  Linear  Regression*:PRINT 

340  PRINT*  *6  Analysis  of  Variance* 

330  KP-896  :  KS-6  !  GOSUB  300 

420  IP  IO-l  GOTO  1000 

430  IP  IO-2  THEN  IT«*1*  !  GOTO  430 

440  IF  IO-3  OR  IO-4  THEN  ZT-*2*  ELSE  ZT-*3* 

430  IF  10-3  OR  10-3  THEN  10- 1  ELSE  10-2 

460  CLS  1  PRINTTNSERT  TAPE  #*»T!*  INTO  ESF-60  AND  PRESS  SPACE  BAR* 

470  IP  UOCEYtO*  *  GOTO  470 
480  9 LOAD  IS 

300  REM  •••  OPTION  SELECTION  SUBROUTINE  •  •• 

310  PRINT  9 KP*3, "OPTION  DESIRED  *;LB*;MB*!RB«; 

520  n-INXEY*  ;  IF  THEN  320ELSE  10-VAL2I) 
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330  I F  !0<1  OR  IQ7KS  THEN  PRINT  9KP.  BL»K  PRINT  W'm  NOT  A  VALID  OPTION  FOR  I-l  TO  100 

0  i  NEXT  1  PRINT  9KP.  BL»i GOTO  310 
340  RETURN 

MO  PRINT  9KP+3XB*!*  *!L»!*  or  *!R«!*  *;RB«i*  *:LB*;MB*!RB*i 

410  IQ-INKEY*  1  IF  IQ-**  THEN  610ELSE  PRINT  9KP-18.WN!  FOR  I-l  TO  100  1  NEXT 

420  IF  !QOlt  AND  IQOCHR»tASClL*>-32>  AND  IQORt  AND  ZQOCUR41ASC1R4W32)  THEN  600 

430  RETURN 


pRQQiutt  n  a am 

1000 REM  •••  PROGRAM  41  ••• 

1010  REM  MAIN  MENU  ••• 

1020  CLS  :  PRINT  TAB(20>;*»**  MENU  •*** 

1030  PRINT  9128,*(1>  Cota  I/O 

1040  PRINT*(2>  Data  Transformations 

1090  PRIKT*<3)  Probability  Distributions 

1040  PRINT*(41  Invars*  Probability  Distributions 

1070  PRINT*(3)  Return  to  Program  Selection  Menu 

1080  KP-704  !  KS-3  1  GOSUB  300 

1130  IF  14-1  AND  10-2  OR  14-0  AND  IN-0  AND  IO-2  PRINT9704^HR»(233);SPRIKT  9704, THERE  IS  NO  DATA  T 
O  THANSFORM*;:FOR  I«1  TO  1S00;NEXT:PRINT  9704,CHR»(233)SGOTO  1080 
1140  ON  10  GOSUB  2000,  3500,  3000.  3200,  270 
1170  GOTO  1020 


DATA  INPUT  /  OUTPUT 


2000  REM  •••  DATA  INPUT/OUTPUT  SUBROUTINE 
2010  CLS  :  PRINT  911,****  DATA  INPUT/OUTPUT*** 

2020  print:print:print*menu:* 

2030  PRINT*  (1)  Input  Data  via  Keyboard 

2040  PRINT*  (2)  Input  Data  via  Tape 

2090  PRINT*  (3)  Input  Summary  Statistics  ONLY 

2040  PRINT*  <4)  Create  a  random  sample  using  random  number  generator*  :  PRINT*  (far  demonstration  purp 
osesi 


2070  PRINT*  (3)  SAVE  data  to  tape 

2080  EP-748  1  KS-3  1  GOSUB  300 

2100  IF  IO- 1  OR  IO-2  THEN  13-1  ELSE  13-0 

2120  ON  IO  GOTO  2200.  2700,  2900,  4000,  3300 


am  PAT  A  YIA  XEXBBABH 

2200  REM  #  #  #  INPUT  DATA  VIA  KETBOARD 

2210  CLS  S 14-0  _ 

2220  PRINTTo  end  data  input  just  press  ENTER  in  response  to  prompt* 

2230  IN-0 
2240  PRINT 

2230  X*-**  S  PRINT* Enter  XCHN-UTiONPUT  X» 

2240  IF  X*-**  GOTO  2310 

2270  T*-LEFT*<X*,1)  1  IF  T*-*0*  OR  T*-*l*  OR  Tt-*2"  OR  T*-*3*  OR  T*-*4*  OR TS--3*  OR  TS-*4*  OR T*-*7*  OR 
T»-*8*  OR  T«-*9*  OR  TS-V  OR  T»-"-‘  OR  T THEN  GOTO  2290 
2280  PRINT" Reenter  last  value*  i  GOTO  2250 
2290  IN-IN-1  1  X(IK)*VAL<Xt) !  TaN>-XONl 
2293  IF  IN-1  THEN  2230  ELSE  IF  XONXXON-1)  THEN  13-0 
2298  IF  IN3199  THEN  2310 
2300  GOTO  2230 

2310  PRINT!  IF  IN-0  THEN  PRINT*KO  DATA  ENTERED*!  ELSE  IF  IN-1  PRINT* ANALYSIS  CAN  NOT  HI  PERFORM 

ID  OR  A  SAMPLE  OF  1*!  ELSE  PRXNT'Number  of  data  points  -‘ON  :  FOR  I-l  TO  300  I  KSXT 

2320  FOR  l-IN-l  TO  200  !  Xllt-O  ;  Y(I)-XII> ;  NEXT 

2330  IF  IN-0  THEN  RETURN  ELSE  IF  IN-1  THEN  IN-0  :  RETURN 

2340  IF  13-1  GOTO  3800 
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aaaxsoRi 

2400  REM  •••  SHELL  SORT  ROUTINE 
2410  CLS  :  PRINT  G438,*»»»  ORDERING  DAT* 
2420  IF  IN>3  GOTO  3510 
2430  IF  IN*  3  GOTO  2*60 

2440  IF  X(1»X(2)  THEN  XT-Xll) :  Xll>-X(2>  S  X(2>-XT 
2430  GOTO  2300 

24*0  IF  X(1»X<2>  THEN  XT*X(2>  :  X(2>«XU)  !  XUI-XT 
2470  IF  X(2»X13>  THEN  XT*X(3> i  X<3>-X(2>  5  X121-XT 
2400  IF  X(1»X<2>  THEN  XT*X(2> !  X<2)«X<11 i  XUI-XT 
2300  FOR  1*1  TO  IN  :  Ya)-X(I)  !  NEXT  I  :  GOTO  2660 
2310  IM*INTiLOG(lN)/LOGC2))-l 
2320  H  »  21 IM  -  1 
2330  X  ■  H 

2340  FOR  I  -  K  ♦  1  TO  IN 
2330  XT-X(I) 

23*0  J  -I  -  E 
2370  IF  J  <  1  GOTO  2620 
2300  IF  XT  >-  X(J»  GOTO  2620 
2390  X(J+K)  *  X(J) :  YCJ*K>  ■  Y(J) 

2*001- J-X 

2*10  GOTO  2370 

2*20  X<J»K)  *  XT  5  Y(J*K)  -  XT 

2*30  NEXT  I 

2*40  H«(H-  13/2 

2*30  IF  H  >■  1  GOTO  2330 

2**0  GOSUB  3800 

2*70  RETURN 


INPUT  DATA  VIA  TAPE 

2700  REM  •••  INPUT  DATA  VIA  TAPE  ••• 

2710  CLS  :  14-0  !  PRIMT’Insert  DATA  TAPE  into  ESF-80* 

2720  PRINT  :  PRINT*  Prasi  SPACE  BAR  afttr  inserting  the  tape* 

2730  IF  INKET9  O  *  «  GOTO  2730 

2740  PRINT  :  INPUT  ‘Enter  Data  FUe  #*5FI 

2730  QOPEN  FI 

27*01-1 

2770  eiNPUT  xai 

2780  Ta»X(I) 

2783  IF  1-1  THEN  28Q0  ELSE  IF  XdKXU-1)  THEN  13-0 
2790  IF  XOl-999999  GOTO  2810 
2800  I-I-l  S  GOTO  2770 
2810  QCLOSE 

2820  IN-I-I  i  PRINT  :  PRINT'NUMBER  OF  DATA  POINTS  -*3-1  i  FOR  I-l  TO  1300  i  NEXT  I !  IF  I3H>  THEN  GOT 
O  2410ELSE  GOTO  3800 


MTZL5?MMARI  STATISTICS  BULL 

2900 REM  •••  INPUT  SUMMARY  STATISTICS  ONLY  ••• 

2910 14-1  I  CLS  !  PRINT  TAB<20)*SUMMART  STATISTICS  INPUT* 

2920  PRINT  5  INFUT-Siircle  Stte“!IN  i  IF  IN-1  OR  IN-0  GOTO  2310 

2930  PRINT  Q192i*ls  sample  assumed  to  be  from  an  Exponential  Distribution?* 

2940  KP-23*  1  L*-*y*  !  R»-*n*  !  GOSUB  600 

2930  IF  ZO-*n*  OR  IQ-‘N*  GOTO  2990ELSE  PRINT  9192, 'NiU  you  enter  *XB«rM*na«r*M  or  Exponential  Par* 
meter  ■ILB*S*L*;RB»r,a/nOda'; 

29*0  KP-23*  !  L*-*m*  !  R*-“l*  S  GOSUB  600 

2970  IF  8K»*  OR  IQ-*M*  THEN  PRINT  !  INPUT'Snter  Mean'iXB  t  Vt-XB»XB  J  V-Vl  S  GOTO  3170 
2980  PRINT  :  INPUT* Enter  Lambda'IXB  !  XB-l/XB  5  Vl-XBsXB  :  V-Vl  S  GOTO  3170 
2990  PRINT  9192<  *ls  the  sample  assumed  to  be  from  a  Bernoulli  Population?* 

3000  EP-236  i  Lb-*y*  !  R*-*n*  :  GOSUB  600 
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3010  IF  2Q*’n*  OR  IQ*’N*  THEM  GOTO  3030ELSE  PRINT  !  PRINT*  Enter  nutter  of  occurrence  out  ofMNi’trials* 
iiINPUT  XB  :  IF  XB>IN  OR  XBCO  GOTO  3020ELSE  IF  XBOINT(XB)  GOTO  3020ELSE  XB*XB/IN  ;  Vl=XB«<l-XB)  : 
V*V1  !  GOTO  3170 

3020  PRINT  0192,CHRt(23O)  i  PRINT  0192, *YOU  MOST  ENTER  AN  INTEGER  FROM  0  TO*?IM  !  PRINT*.  FOR  l*t  TO 
2000  !  NEXT  !  GOTO  3010 

3030  PRINT  0192, BL*  !  PRINT  !  PRINT  0192,**;:lNPUT*Sample  Mean*!XB 
3040  PRINT  1  PRINT"Will  you  enter  variance  or  ttd.  deviation  7* 

3050  KP»339  S  L»*“v*  1  R*»*d*  1  GOSUB  400 

3040  IF  IO**v*  OR  2Q*"V*  THEN  VS.-Si/rql*  Variance’  ELSE  Vf'San^U  Std.  Deviation* 

3070  PRINT  !  PRINT  VSJilNFUT  SV 

3060  IF  Vt*‘Sample  Variance*  THEM  GOTO  3100ELSE  Vt*SV«SV  :  V«((IN-U/IN)»V1 
3090  GOTO  3170 

3100  PRINT’Is  the  sample  variance!  *;CHRS(123>:*1*;CHR*(123>;*  the  M.L.E.  lie.  l/nl 
3110  PRINT’  *;CHR«<123>;‘2*;CHR«(125>;*  unbiased  estimator  (i.e.  1  'n-11 

3120  PRINT  0440, "SELECT  APPROPRIATE  ESTIMATOR  ":CHRS(123)i*  *!CHR*(125) 

3130  H*INKEYS  !  IF  21***  GOTO  3130ELSE  PRINT  047O,ZI!FOR  1*1  TO  100!  NEXT 
3140  IF  210*1*  AND  210*2*  THEN  PRINT  0470,*  MGOTO  3130 
3150  IF  21**1"  V*SV  !  Vl«(IN/(IN-l))»SV 
3140  IF  2I*‘2*  THEN  Vt*SV  !  V»«IN-1>/IN>*SV 

3170  CLS  !  PRINT* When  summary  statistics  are  entered  in  lieu  of  data,  several  subroutine  are  not  available. 
These  include!" 

3180  2 1  *CHRt(l  23)!Z2*CHR*(  1 2S)!PRINT!PR1NT*  *J215*  Data  Transformations  *122  :  PRINT*  “!21!*  Five  Nun* 

er  Summary  *iZ2  !  PRINT’  *!Zli*  All  Data  Plots  *!Z2  !  PRINT*  ’ill!*  All  of  the  Subroutine  in  Prog.  #4  *!22 
3190  FOR  1*1  TO  200  !  X(I)*0  !  Y(I)*0  !  NEXT 
3200  PRINT  0394, "PRESS  SPACE  BAR  TO  CONTINUE’ 

3210  IF  INKEYSO*  *  GOTO  3210 
3220  RETURN 


SAVE  PAT  A  TQ  TAPE 

3300  REM  •••  SAVE  DATA  TO  TAPE  •  #  a 
3310  CLS  !  PRINT“INSTRUCTIONS!* 

3320  PRINT*  (11  Insert  DATA  TAPE 

3330  PRINT*  (2)  If  you  use  a  blank  tape  than  FILE  •  will  be  1 

3340  PRINT"  (3)  If  the  tape  is  not  blank  then  the  FILE  9  must  be 

3330  PRINT*  the  number  of  the  last  data  file  recorded  PLUS  1 

3340  PRINT  !  PRINT  ‘When  the  tape  is  ready  pres  SPACE  BAR 

3370  IF  INKEY*  O  "  *  GOTO  3370 

3380  PRINT  S  INPUT*Enter  FILE  #*30 

3390  Y (IN* 11*999999 

3400  0OPEN  10 

3410  FOR  1*1  TO  IN*1 

3420  QPRINT  Ydl 

3430  NEXT  I 

3440  0C  LOSE 

3430  PRUT  INi’data  paints  recorded  as  DATA  FILE  t*!IO  !  FOR  1*1  TO  2000  $  NEXT  !  RETURN 


BATA  TRANSFORMATIONS 

3500  REM  ♦  DATA  TRANSFORMATION  SUBROUTINE 
3310  CLS  !  PRINT  TAB(22)*DATA  TRANSFORMATIONS* 

3320  PRINT  !  PRINT  ‘MENU!*  !  PRINT*<1)  NO  Transformation 
3330  PR1NT*<2>  Square  Root  Transformation 
3340  PRINT" (31  Cube  Root  Transformation 
3330  PRIKT"(4)  Logarithmic  Transformation 

3340  PRINT  !  PRINT*  NOTE  1!  Other  transformations  must  be  made  before  data  entry 
3370  PRINT"  NOTE  2!  Raw  data  may  be  recovered  by  returning  to  this  suO- 
3380  PRINT"  routine  and  selecting  Option  1 

3590  PRINT*  MOTE  31  Option  2  will  not  work  with  negative  data  and  option  4  require  all  data  great 

er  than  taro 
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3600  KP-89*  i  KS-4  !  GOSUB  500 

3610  CLS  S  PRINT-EXECUTING  TRANSFORMATION  OPTION' II O 
3420  FOR  l-l  TO  IN 

3430  ON  10  GOTO  3440,  3650,  3670,  3690 
3440  Y<I)-X<I) :  GOTO  3710 

3430  IF  X(I)  <  0  CLS  !  PRINT 'CAN  NOT  TAKE  THE  SQUARE  ROOT  OF  NEGATIVE  DATA!*  i  FOR  J-l  TO  2000  S  HE 

XT  J  1  GOTO  3500 

3440  T(I)-SaR<X(I)l  :  GOTO  3710 

3470  Y<I)«ABS(X<I»t .3333333  !  IF  X(I>  <  0  Ya>-Y<I>*-t 

3480  GOTO  3710 

3490  IF  XU)  <-  0  CLS  !  PRINT-CAN  NOT  TAKE  THE  LOO  OF  DATA  LESS  THAN  OR  EQUAL  TO  ZERO*  1  FOR  J-l  T 
O  2000  !  NEXT  J  !  GOTO  3500 
3700  TUl-LOGUU)) 

3710  NEXT  I 

CALCULATE  SAHELE.SIAHSTICS 

3800  REM***  CALCULATE  SAMPLE  STATISTICS  *•• 

3810  CLS  1  PRINT  0454,-*  INITIALIZING  DATA  BASE** 

3820  SM-0  :  SUM-0  S  S2-0  :  FOR  I-l  TO  IN  i  SM-SM*Y(I>  i  DV-YUHSUM  !  SUM-SUM*DV/I 1 S2-S2+DV  •  (YU>-8Vk 
) ( NEXT 

3830  XB-SM/1N  1  V1-S2/UN-1)  1  V-S2/IN 

3840  Gl-0  1  G2-0  !  FOR  I-l  TO  IN  1  Gl«Gl*<YU)-XB)C3  l  G2-G2*<YO>-XB>C4  :  NEXT  I !  Ol-Gl/IN/VC  1.5  1 G2X02 

/IN/Vt2>-3 

3830  RETURN 

RANDOM  NUMBER  GENERATOR 

4000  REM  •••  RANDOM  NUMBER  GENERATOR  SUBROUTINE 
4010  CLS  :  14-0  :  PRINTS  18,“ RANDOM  number  generator* 

4020  PRINT  :  PRINT  1  PRINT'Distribution  Option*/ 

4030  PRINT*  (1)  Normal 
4040  PRINT*  (2)  Uniform 
4030  PRINT*  (3)  Exponential 
4040  PRINT*  (4)  Bernoulli 
4070  KP-643  !  KS-4  :  GOSUB  500 

4080  PRINTQ704,**; :  INPUT'How  many  random  numbers  do  you  want*UX 

4083  IF  IN<-1  THEN  PRINT  Q640,  CHR*<230) :  PRINT  0640/ WHAT?  ...  Pleas*  request  a  sample  sue  of  at  least  2 
*  :  GOTO  4080 

4090  ON  IO  GOSUB  4300,  4400,  4600,  4700 

4100  CLS  :  PRINT'Do  you  want  to  see  the  random  sample  *;i  Lt-'y*  !  RS-*n*  :  KP-33  !  GOSUB  600 
4110  IF  ZQ-*n*  OR  ZQ-*N*  THEN  2410ELSE  PRINT 
4120  J-0 

4130  FOR  I-l  TO  IN 

4140  J-J*t  :  IF  J  >  3  PRINT*  • 

4130  IF  J  >  5  THEN  J-l 

4140  PRINT  USING'#*#e4*#.*#*-;XUn:FRINT*  *5 
4170  IF  INTd/50>-I/30  GOTO  4190 
4180  GOTO  4210 

4190  PRINT  :  PRINT* PRESS  SPACE  BAR  TO  DISPLAT  NEXT  SET  OF  NUMBERS* 

4200  IF  INKET*  O  *  *  GOTO  4200 
4210  NEXT  1 

4220  PRINT  :  PROTTPress  SPACE  BAR  to  continue* 

4230  IF  INKEY*  O  *  *  GOTO  4230 
4240  GOTO  2410 

MBMALBHQ 

4300  REM  •••  NORMAL  RNG  ••* 

4310  CLS  :  PRINT  QIO, 'NORMAL  RANSOM  NUMBERS  BY  BOX -MULLER  METHOD* 

4320  PRINT :  PRINT 

4330  INPUT*Nhat  is  the  mean*‘MU 

4340  INPUT**  i*t  is  the  variance", VAR  !  SIGMA -SQR (VAR) 

4390  FOR  1-1  TO  IN  STEP  2 
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43*0  Ut»RND<0> :  U2«RND<0> 

4370  X(I»«SOR<-2«LOG<Ul»aCOS<6.28313»U2):X<I>-X<I>aSIGMA  *  MU  i  Y!I)«X(I> 

4380  XU*l)«SaR<-2»LOG<UlH*SIN(6.28313#U2>:X(I*n«XII»l>#SIGMA  *  MU  !  Y(I»t)»X<I*l) 
4390  NEXT  I 
4393  RETURN 


tfHIEQfiM  BBS 

4400  REM  •  •  •  UNIFORM  RNG  •<« 

4410  CLS 

4420  PRINTQ20,“UNIFORM  RANDOM  NUMBERS* 

4430  PRINT  :  PRINT  :  PRINT*  (I )  Continuous 

4440  PRINT*  (2)  Uniform  Intagars 

4430  KP-384  1  KS«2  !  GOSUB  500 

4460  PRINT  :  INPUT“Ent*r  Lowar  LuwtNLL 

4470  INPUT* Entar  Uppar  Limit'lUL 

4480  ON  10  GOTO  4490,  4340 

4490  FOR  I«1  TO  IN 

4300  X(I)>RND<0>«<UL-LU  ♦  LL 

4310  Y(I)-X(I) 

4320  NEXT  I 
4330  RETURN 
4340  FOR  I«1  TO  IN 

4330  Xa>-INT(RND40hHUL-LU  ♦  LL  )  i  IF  X(I)  O  LL  THEN  XCI>«XU>*1 
4360  Ya»xa> 

4370  NEXT  I 
4380  RETURN 


EXESHEMTUL  RHO 

4600  REM  m  EXPONENTIAL  RNG  Ml 
4603  CLS  :  PRINT  813,-EXPONENTIAL  RANDOM  NUMBERS* 

4610  PRINT  8 128 .“Will  you  antar  tha  Exponantial  Paramatar  Lambda  or  tha  Kaan*  S  KP-192  J  L*"*l*  I  RM*m*  S  GO 
SUB  600 

4620  IF  ZQ**l*  OR  IO-*L*  THEN  ZP»*Lambda*  ELSE  ZP-*Maan* 

4630  PRINT  0236, "Entar  ‘SPNINPUT  MU 
4640  IF  IP»*Lambda"  THEM  MU-l/MU 
4630  FOR  I-t  TO  IN 
4660  01-RMO<O> 

4670  Xd>-  -MU  a  LOG(Ul) 

4680  rat-xai 

4690  NEXT  I 
4693  RETURN 


BBMflgUimg 

4700  REM  MI  BERNOULLI  RNG  M« 

4710  CLS 

4720  PRINT013, "BERNOULLI  RANDOM  NUMBERS 

4730  PRINT  :  IMFUT’What  ia  tha  probability  of  sucnasa  on  a  ting  la  tnal“,PS 
4740  FOR  1-1  TO  IN 
4730  XC)-RND<0> 

4760  IF  XU)  <■  PS  THEN  Xa»l  ELSE  XUW) 

4770  NEXT  I 
4780  RETURN 
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5000  REM  •••  PROBABILITY  D  I  S  T  R  I  B  U  T  I  O  K  S  SUBROUTINE 
9010  CLS  :  PRINT  TABU8)"PROBABILITY  DISTRIBUTIONS 
5020  PRINTiPRINT!  12*0 
5030  PRINT"MENU!“ 

5040  PRINT"!  1)  Normal  Distribution 
5050  PRINT*(2)  Binomial  Distribution 
5060  PRINT"<3>  Nagativ*  Binomial  Distribution 
5070  PRINT"<4)  Poisson  Distribution 
5060  PRINT" (5)  Exponantial  Distribution 
5090  PRINT" (6)  Clu-Squara  Distribution 
5100  PRINT"(7)  Ctud*nt's-t  Distribution 
5110  PRINT"<8>  F-Oistnbution 
5120  KP-896  !  KS*8  i  GOSUB  500 

5130  ON  10  GOSUB  6000,7000^000,9000,10000,1 1000,12000,13000 
5140  IF  10*2  OR  10*3  OR  10*4  OR  10*5  THEN  RETURN 

5150  PRINT  !  PRINT  :  PRINT  "Prob.  (  X  <«“;PX!*>  -  *1 t  PRINT  USING"#.##*#*:FOX 

5160  PRINT  "Prob.  (  X  >  "JPX!")  *  "J  J  PRINT  USING*#.i###":QOX 

5170  PRINT  8960,"  Run  Again  or  Quit?*;:  KP-978  !  LS-"r“  !  RS-*q*  S  GOSUB  600 

5180  CLS  :  12*0  :  IF  Z0*“r“  OR  ZQ*"R"  GOTO  5130 ELSE  RETURN 

5190  GOTO  1020 


INVERSE  DISTRIBUTIONS  MENU 

5200  REM  INVERSE  DISTRIBUTIONS  ••• 

5210  CLS  !  PRINT  TABU 5>"IN VERSE  PROBABILITY  DISTRIBUTIONS 

5220  PRINT  8192, "MENUS":PRINT"<1>  Invars*  Normal 

5230  PRINT"<2)  Invars*  Chi-Squara 

5240  PRINT" (3)  Invars*  Studant'i  -  t 

5250  PRINT"  (4)  Invars*  F 

5260  PRINT" (5)  Invars*  Exponantial" 

5270  KP-960  :  KS-S  i  GOSUB  500 
57pn  X2*0 

5290  ON  IO  GOSUB  14000,  15000.  16000,  17000,  18000 
5300  IF  10*5  GOTO  5350 

5310  PRINT  !  PRINT  "For  Fix)  -  Prob.  <  X  <»  x  I  **;PR 

5320  IF  XQ-9E36  THEN  PRINT  "x  «  infinity*  ELSE  IF  X0-9E-34  PRINT  "X  *  -  infinity" 

5330  IF  XQ-9E36  OR  XQ-9E-36  THEN  GOTO  5350 

5340  PRINT  "x  -  "1 1  IF  ABS(XQ»1000  THEN  PRINT  INT(XQ)  ELSE  IF  ABS(XQ»100  PRINT  USING"80#0.0";XQ  EL 
SE  IF  ABS(XQ»10  PRINT  USING"*#*. **"!XQ  ELSE  PRINT  USING*##.###"IXQ 
5350  PRINT  8960,"  Run  Again  or  Quit*;:  L*-"r"  !  R*-"q*  1  KP-976  1  GOSUB  600 
5360  IF  ZO*"R"  OR  ZQ**r’  GOTO  S280ELSE  RETURN 


HQHUAL  OISTRfflynQN 

6000  REM  **•  NORMAL  DISTRIBUTION  SUBROUTINE 

6010  IF  12-1  GOTO  6070 

6020  CL&PRIKT  820, "NORMAL  DISTRIBUTION" 

6030  PRINTtPRINTUNPUT'Entar  Maan"!MU 
6040  INPUT" Entar  Varianea"iVAR 

6050  IF  VAR<*0  PRINT"**  ERROR  ♦*  ":VAR*IS  NOT  A  VALID  VARIANCE"!GOTO  6040 
6060  INPUT" Entar  Normal  Statistic  x  ",‘NX  i  IF  12-0  THEN  PX-NX 
6070  SD-SQR1VAR) 

6000  XN-4NX-MU>/SD:AX*ABS<XN> 

6090  XZ-.3989423*EXP<C-AX*AX>/2) 

6100  NT*l/(l*.2316419*AX) 

6110  QOX-XZ*«.3193813*HT>-<.3363638*MTC2>*U.781478*NTt3>-<1.821234*NTl4>*U.330274*NTC3)> 

4120  IF  XN<0  GOTO  6190 

4130  POX-1 -OOX 

4140  RETURN 

4150  FOX-OOX 
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6160  QOX-l-FOX 
6170  RETURM 


binomial  aisiBmmaa 

7000  REM  •••  BINOMIAL  DISTRIBUTION  SUBROUTINE  •  •• 

7010  IF  12*1  GOTO  7330 

7020  CLS  !  PRINT  TAB<20)*BIMOMIAL  Dia  CRIBUTION 
7030  PRINT 

7040  PRINT*  The  normal  ion  trio  for  the  Binomial  Distribution  is  K* 

7090  PRINT'occurrences  out  of  N  trials  where  P  is  tho  probability  * 

7060  PRlNT*of  occurrtnco  on  a  single  trial. 

7070  PRINT  !  INPUT* Entor  N*!N 

7060  IF  N<0  OR  NOINT(N)  THEN  PRINT***  ERROR  **  N  MUST  BE  A  POSITIVE  INTEGER* '.GOTO  7070 
7090  INPUT'Enter  P*JPB 

7100  IF  PB*1  THEN  PRINTTHE  PROBABILITY  0F*:Ni*0UT  OF*!N5*«  l.O'IGOTO  3170 

7110  IF  PB*0  THEN  PRINTTHE  PROBABILITY  OF  0  OUT  OF'lNf-  l.O'iGOTO  3170 

7120  IF  PB<0  OR  PB>1  THEN  PRINT***  ERROR  •*  "iPBl'IS  NOT  A  VAUD  PROBABILITY":GOTO  70*0 

7130  INPUT’Enter  K'iXK 

7140  K*XK 

7190  IF  K<0  OR  KOXK  THEN  PRINT***  ERROR  •*  K  MUST  BE  A  POSITIVE  INTEGER* 1GOTO  7130 

7160  IF  K7N  THEN  PRINT  "THE  PROBABILITY  OF  *1K1*  OUT  OF  ‘{NS*  •  O'lGOTO  9170 

7170  IF  K-0  OR  N-K  THEN  BC*1  1  GOTO  7240 

7160  IF  K<0  THEN  PR-0  1  GOTO  7290 

7190  TB-N  i  BB-K 

7200  IF  N<120  GOTO  7230 

7210  GOSUB  7740 

7220  GOTO  7230 

7230  GOSUB  7430 

7240  PR  -  BC  •  PBIK  •  (l-PB)t(N-K) 

7290  PRINT  1  PRINT* Prob.  of  exactly*iK;*oecurrences  out  of  INi'trials  -  *i!PRINT  USING**.###«*;PR 
7260  PRINT  0960,‘Do  you  want  Cumulative  Probability  •;}  K  P-992  1  L*-*y*  1  R$-*n*  :  GOSUB  600 
7270  IF  2Q-*n*  OR  IQ-*N*  PRINT  0960,BL»}i  GOTO  3170 
7280  PRINT  !  INPUT" Enter  K'IXK 

7290  K-XK  t  IF  K>N  THEN  GOTO  7160ELSE  IF  K<0  OR  KOXK  PRINT***  ERROR  ••  K  MUST  BE  A  POSITIVE  IN 
TEG  ER* '.GOTO  7280 
7300  IF  M<*43  GOTO  7330 

7310  IF  PB>.1  AND  PBC.9  AND  PB*M>3  THEN  PRINT*NORMAL  APPROXIMATION  HILL  BE  USED*  : GOSUB  79801 
GOTO  7410 

7320  IF  PBC-.l  OR  PB>.9  THEN  PRINT 'POISSON  APROXIMATION  HILL  BE  USED*  1  GOSUB  76601  GOTO  7410 
7330  PR-0 

7340  IF  K<0  GOTO  7410 

7390  IF  K  >-  N  THEN  PR-1  1  GOTO  7410 

7360  FOR  B8-0  TO  K 

7370  TB-N  1  GOSUB  7430 

7380  PR- PR*  BC  •  PBCBB  •  (l-PB)C(N-BB) 

7390  IF  FR>-1  GOTO  7410 
7400  NEXT  BB 

7410  IF  12-1  RETURM  ELSE  PRINT  I  PROTTProb.  of‘;K,"or  less  aeajrrsnces  out  of  Wl’trials  -  *{!PRINT  USING* 

6.696*{FR 

7420  PRINT  1  GOTO  7260 

7430  BC-0  1 B-0  1  BT-0  1  SB-BB  1  QB-TB-BB 

7440  FOR  BI-1  TO  TB 

7490  IF  SB3-0B  GOTO  7910 

7460  IF  SB  >•  BI  THEN  B-B  ♦  LOGtBI) 

7470  IF  OB  >  BI  GOTO  7990 

7480  IF  OB  -  BI  THEM  BC— B  I  GOTO  7990  • 

7490  BC-BC  *  LOG(BI) 

7900  GOTO  7930 

7910  IF  08  >•  BI  THEM  B-B  *  LOGON) 

7920  IF  SB  >  BI  THEM  GOTO  7990 
7930  IF  SB  •  BI  THEN  BC— B  1  GOTO  7990 
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7540  BC*BC  ♦  LOG(BI) 

7550  NEXT  BI 
7540  BC*EXP<BC> 

7570  RETURN 
7530  MU-PB 

7590  VAR*<PB  •  <1-PB>  l/N 

7400  NX»(K  ♦  <5)/N 

7410  12-1 

7420  GOSUB  4000 

7430  12-0 

7440  PR-FOX 

7450  RETURN 

7440  IF  PB<>.1  THEN  LAM-N*PB  ELSE  LAM-N*<1-PB> 
7470  n- 1 

7480  IF  PB<«.1  THEN  NC-K  ELSE  NC-N-K-1 

7490  12-1 

7700  GOSUB  9230 

7710  12-0 

7720  IF  PB>«.9  THEN  PR-1 -PR 
7730  RETURN 

7740  REM  *  *  *  NORMAL  APPROXIMATION 
7750  IF  PB7-.9  AND  U-PB)*N<5  THEN  GOTO  7880 
7740  IF  PB<.1  AND  PB*N<5  THEN  GOTO  7880 
7770  MU-PB 

7780  VAR-iPB  «  <1-PB»/N 
7790  NX»<K*.5)/N 
7800  12-1 
7810  GOSUB  4000 
7820  PR-FOX 
7830  NX-<K-.5)/N 
7840  GOSUB  4000 
7850  PR- PR-FOX 
784012-0 
7870  RETURN 

7880  REM  •••  POISSON  APPROXIMATION 

7890  IF  PBO.l  THEN  LAM-N-PB  ELSE  LAM-NX1-PB) 

7900  TI-1 

7910  IF  PB<-.1  THEN  NC-K  ELSE  NC-N-K 

792012-1 

7930  GOSUB  9000 

794012-0 

7950  IF  FR3-.9  THEN  PR-l-PR 
7960  RETURN 


NEGATIVE  BINOMIAL  DISTRIBUTION 

8000  REM  *  *  *  NEGATIVE  BINOMIAL  SUBROUTINE  •  •* 

8010  IF  12-1  GOTO  8170 

8020  CLS  1  PRINT  TAB(15)*NEGATIVE  BINOMIAL  DISTRIBUTION 

8030  PRINT  :  PRINT*  The  norm*!  scenario  for  th*  Negative  Binomial  Distribution  is* 

8040  PRINT’prob  ability  of  exactly  K  failures  prior  to  tho  Rth  iuixmi* 

8050  PRIMT'wbon  tho  probability  of  success  on  a  single  trial  is  P 
8060  PRINT  S  INPUT*Entor  K’lXK  1  K-XK 

8070  IF  K<0  OR  KOXK  THEN  PRINT'S*  ERROR  *«  K  MUST  BE  A  POSITIVE  INTEGER* KIOTO  8060 
8080  INPUT’Entsr  R*iRA 

0090  IF  RA<0  OR  RAOINT(RA)  THEN  PRINT’S*  ERROR  *•  R  MUST  BE  A  POSITIVE  IMTEGER'IGOTQ  8080 
8100  INPUT’Entor  P“IPB 

8110  IF  FB-0  THEN  PRINTTHE  PROBABIUTT  OF*!KS*FAILURES  PRIOR  TO*iRA5*SUCCESSES  •  l.0*«3OTO  5170 

•120  IF  PB-1  THEN  PRINTTHE  PROBABIUTT  0F’!K!*FAILURES  PRIOR  TO*iRAi*SUCCESSES  -  0.0*WOTO  5170 

8130  IF  PB<0  OR  PB>1  THEN  PRINT'**  ERROR  *«  *!FBi*IS  NOT  A  VALID  PROBABIUTT’IGOTO  8100 

•140  IF  K-0  AND  RA-0  THEM  PRINT  !  PRINT****  Reenter  parameters'SGOTO  8060 

•ISO  IF  K-0  THEN  PR  -  P9IRA  GOTO  3200 

•160  IF  RA-0  THEN  PR  -  (l-PB)CK  i  GOTO  8200 
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•170  TB»RA*K-1  ;  BB-K 

•180  GOSUB  7430 

•190  PR-BC  •  PBCRA  ♦  ll-FB)CK 

8200  PRINT  :  PRINT’Prob.  of  exactly'iKI'failures  prior  to'lRAJ'sucoesses' 

8210  PRINT'S*  equal  to  -‘.IPRINT  USING-#.**#*".PR 

8220  PRINT  3940, -Do  you  want  Cumulative  Probability  ■;!  KP-992  !  L4-*y*  t  R*-'n'  !  GOSUB  400 
8230  IF  ZQ-'N'  OR  ZQ»-n-  THEN  PRINT  3960,  BL»i  :  GOTO  5170 
8240  PR -0  !  PRINT  i  INPUT“Ent*r  JC'IXK 

8250  K-XK  !  IF  KCO  OR  KOXK  THEN  PRINT'**  ERROR  ••  K  MUST  BE  A  POSITIVE  INTEGER*  (GOTO  8240 
8260  IF  K*0  AND  RA*0  THEN  PRINT  !  PRINT-***  Rttntir  parameter- IGOTO  8240 
8270  IF  K*0  THEN  FR-PBCRA  !  GOTO  8330 

8280  IF  RA*0  THEN  FOR  1*1  TO  K  !  PR-PR*tl-PB)tI  !  NEXT  !  GOTO  8330 
8290  FOR  BB*0  TO  K. 

8300  TB-RA  *  BB  -  1  :  GOSUB  7430 
8310  PR* PR  ♦  <BC  •  PBCRA  •  (l-PB)CBB) 

8320  NEXT  BB 

8330  IF  RA*l  IX-'*t'  !  GOTO  8360 
8340  IF  RA*2  ZX-'nd'  !  GOTO  8360 
8330  IF  RA-3  ZX*'rd*  ELSE  ZX-'th' 

8360  PRINT  :  PRINT  'Prob.  of'IKJ'or  fewer  failures  pnor  to  thd'SRAS  I X}'  success* 

8370  PRINT'ls  equal  to  '"PRINT  USING-#. ••••‘IPR 
8380  PRINT!  GOTO  8220 


POISSON  DISTRIBUTION  . 

9000  REM  ••*  POISSON  DISTRIBUTION  SUBROUTINE 
9010  IF  12-1  GOTO  9090 

9020  CLS  :  PRINT  TAB<20)'POISSON  DISTRIBUTION 
9030  PRINT  :  INPUT' Enter  Rat*  (lambdal'JLAM 

9040  IF  LAM<*0  PRINT'**  ERROR  •#  ENTER  A  VALnE  >  O'iGOTO  9030 
9050  INPUT- Enter  tune  period  (t)-rTI 

9060  IF  TI<*0  PRINT'**  ERROR  •*  ENTER  A  VALUE  >  O'SGOTO  9050 
9070  INPUT'Enter  number  of  occurrences -;NC 

9080  IF  NC<0  OR  NCOINT(NC)  PRINT’**  ERROR  «*  ENTER  A  POSITIVE  INTEGER  VALUE'XjOTO  9070 
9090  PD-0 

9100  IF  NC<*1  GOTO  9140 
9110  FOR  PI-2  TO  NC 
9120  PD-PD  ♦  LOG  (PI) 

9130  NEXT  PI 

9140  PR*(-LAM*TD  ♦  (NC*LOG<LAM*TD)  -  PD 
9130  PR-EXP<PR) 

9160  IF  12-1  RETURN 

9170  PRINT  :  PRINT- Prop,  of  exactly- ;NC!*  occurrences  inVnj'ttme  units  ■  ' SPRINT  USING-*. •###'U>R 
9180  PRINT  3960, 'Do  you  want  Cumulative  Probability?  'll  X P-992  :  LS-*y-  :  R*-'n'  S  GOSUB  600 
9190  IF  ZQ-'N*  OR  ZQ-'n'  THEN  PRINT  3960,  BL4J1  GOTO  3170 
9200  PRINT  S  INPUT'Enter  number  of  occurrencesTNC 

9210  IF  HC<0  OR  NCOINT(NC)  THEN  PRINT***  ERROR  **  ENTER  A  POSITIVE  INTEGER  VALUE* (GOTO  9200 

9220  IF  NC-0  THEM  PR-EXP(-LAM*TI)«30T0  9330 

9730  PR-0 

9240  FOR  I-l  TO  NC 

9230  PU-0  S  PD-0 

9260  FOR  PI-1  TO  I 

9270  PD-PD  ♦  LOG  (PI) 

9280  NEXT  PI 

9290  PU-(-LAM*TI>  ♦  G*L0G(LAM*TI»  -  PD 
9300  PR-PR  ♦  EXP1PU) 

9310  NEXT  1 

9320  PR-PR  ♦  EXP<-LA>4»TI) 

9330  IF  12-i  THEN  RETURN 

9340  PRINT.;  PRINT*  Prob.  of’INCt'or  fewer  occurrenaes* 

9350  PRINT* in'TTIS'tlme  units  -  'JSPRINT  USIMO  ••.••••*5PR 
9360  PRINT  :  GOTO  9180 
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! 


EXPONENTIAL  DISTRIBUTION 

10000  REM  *  *  *  EXPONENTIAL  DISTRIBUTION  SUBROUTINE 

10009  CLS  :  PRINT  TAB(20)"EXPONENTIAL  DISTRIBUTION*  _ 

10010  PRINT  :  PRINT*  An  exponential  distribution  is  often  used  in  a  practical*  PRINT  "problem  to  represent 
tha  distribution  of  tna  time  that  elapses" 

10019  PRINT“b#fora  tna  occurrence  of  soma  event.  Per- naps  tha  most  common* 

10020  PRINT" example  is  tna  interarrival  times  *  between  renewals  in  a* 

10030  PRINT'Poisson  Process.  A  particularly  nice  feature  of  tha  exponen-* 

10040  PRINT’tial  distribution  is  its  memoryless  property.  That  is.  it  is* 

10090  PRINT’not  necessary  to  consider  past  occurrences  of  an  event  m  order* 

10060  PRINT'to  calculate  probabilities  for  future  occurrences  of  the  event.* 

10070  PRINT  :  PRINT  *  Press  the  SPACE  BAR  to  proceed.*; 

10080  IF  INKEY •  O  *  *  GOTO  10080 
10090  CLS 

10100  PRINT-NOTE:  While  the  parameters  and  answers  are  expressed  in  terms* 

10110  PRINT*of  time,  be  aware  that  this  is  not  the  only  context  possible.* 

10120  PRINT  :  PRINT* You  may  use  eitner  the  Exponential  Rata,  LAMBDA  a /MEAN)  or  the  MEAN’ 

10130  K P-384  i  LM*1*  !  RS-“m*  !  GOSUB  600 
10140  ZEP-IQ 

10190  PRINT  !  PRINT  !  PRINT'Enter  *;!IF  ZE-*1*  OR  ZE**L*  INPUT’LAMBDA'ILAM  ELSE  INPUT* MEAN'XAM 
10160  IF  LAMOO  THEN  PRINT***  ERROR  ♦*  YOU  MUST  ENTER  A  VALUE  >  0-.GOTO  10190 
10170  IF  IE«*M*  OR  2E«*m*  THEN  LAM- 1 /LAM 
10180  INPUT’Enter  number  of  time  units*fTI 

10190  PRINT  !  PRINT"Prob.  of“!Ti;*time  units  or  less  until  the  next*  *.  PRINT* occurrence  is  -‘ilPRINT  USING**.# 

•##*51-EXP<-LAMBDA*TI)  -  _ 

10200  PRINT  !  PRINT" Pr ob.  of  more  than'tTII'time  units  until  the  next*  :  PRINT’ocajrrence  is  -*;aWNT  USING* 

•.••••*;exp(-lambda*ti) 

10210  PRINT  :  PRINT*Expected  time  until  the  next  occurrence  is* !  1  /LAMBDA wPRIKT*  tune  units* 

10220  PRINT  Q960.  BLS  :  GOTO  9170 


CHI  -  SQUARE  DISTRIBUTION 

11000  REM  •••  CHI-SQUARE  DISTRIBUTION  SUBROUTINE 
11010  IF  12-1  GOTO  11080 

1 1030  CLS:  PRINT  920. ‘CHI-SQUARE  DISTRIBUTION* 

11030  PRINT  9i92,—,:iNPUT*Enter  Chi-Square  Statistic  x  *5CX 

11040  IF  CXC-0  PRINT***  ERROR  •*  CHI-SQUARE  STATISTIC  MUST  BE  >  O'tGOTO  11030 

11090  IP  12-0  THEN  PX-CX 

11060  INPUT’Enter  Degrees  of  Freedom"  IDF 

11070  IF  DFC-0  OR  DFOINT(DF)  THEN  PRINT"**  ERROR  **  ENTER  AN  INTEGER  >  0*tGOTO  11060 
11080  IF  DF>30  GOTO  11290 
11090  DP-1 

11100  FOR  I-INT(DF>  TO  2  STEP  -2 
11110  DP-DP*I 
11120  NEXT  I 

11130  MP-CXt(INT«DF*l>/2»*EXP<-CX/2>/DP 

11140  IF  INT(DF/2)-DF/2  GOTO  11170 

11190  FC«SQR(2/CX/3.1 413931 

11160  GOTO  11180 

11170  PC-1 

11180  LC-1 

11190  MC-t 

11200  D-DF 

11210  D-D*  2 

11220  MC-MC*CX/D 

11230  IP  MCC.000001  GOTO  11260 

11240  LC-LC*MC 

11290  GOTO  11210 

11260  POXaPC*NP*LC 

11270  QOX-t-FOX 

11280  RETURN 
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11290  NX*«CX/DF)C<l/3>  -  <l-(2/<9*DF»»/SQRl2/(9«DF» 
11300  mu*o  :  var*i  ;  I2«i 

11310  COSUB  6000 
11320  RETURN 


STUDENT'*  -  t  DISTRIBUTION 

12000  REM  •••  t-DlSTRIBUTION  SUBROUTINE 

12010  IF  12*1  GOTO  120fc0 

12020  CLS1PRINT  020, “T-DISTRIBUTlON- 

12030  PRINT  !  PRINT  !  INPUT"Ent*r  t-SUti*tic  r  TrX 

12040  INPUT*Ent»r  D*gr#«»  of  Freedom"  IDF 

12050  IF  DF<*0  OR  DFOINT(DF)  THEN  PRINT'**  ERROR  •*  ENTER  AN  INTEGER  >  O'JGOTO  12040 

12040  IF  TX<0  13*1  ELSE  13*0 

12070  IF  DF>23  GOTO  12500 

12080  THETA*ATN(ABS!TX)/SQR(DF» 

12090  IF  DFOl  GOTO  12140 
12100  AT».*3**1«8»THETA 
12110  FOX«<AT*l>/2 
12120  QOX»l-FOX 
12130  GOTO  12450 

12140  IF  INT(DF/2)*DF/2  GOTO  12270 

12130  IF  DF-3  GOTO  12420 

121*0  TS*0  !  TP*1  i  TC-COS<THETA> 

12170  FOR  1*1  TO  INTdDF-31/2) 

12180  TP*TP*2*I/(1*2*I) 

12190  TC*TC*(COS(THET  Alt  2) 

12200  TS*TS*<TP*TC ) 

12210  NEXT  I 

12220  TS-TS-K:  OS  (THETA) 

12230  AT-.A3**198*(THETA*<S1N(TH£TA>*TS)I 

12240  FOX*<AT*ll/2 

12250  QOX-l-FOX 

122*0  GOTO  12450 

12270 1 P  DFO 2  GOTO  12320 

12280  AT-SINITHETM) 

12290  FOX*<AT*l)/2 

12300  QOX-l-FOX 

12310  GOTO  12450 

12320  TS-0  1  TP-1  !  TC-1 

12330  FOR  I-l  TO  INT«DF-2)/2> 

12340  TP-TP*«2*I>- 11/12*11 
12330  TC*TC*(COSCTHETA)t2) 

12360  TS*TS*(TP*TC) 

12370  NEXT  1 

12380  AT*SIH(THETA)*<1*TS) 

12390  FOX*<AT*l>/2 
12400  QOX-l-FOX 
12410  GOTO  12450 

12420  AT"«A3*A198*<THETA*<SIN(THET  A)*COS<THET  A))) 

12430  FOX-iAT*l)/2 
12440  QOX-l-FOX 
12450  PX*TX 
124*0  IF  13-0  RETURN 
12470  QOX-FOX 
12480  FOX-l-QOX 
12490  RETURN 

12500  NX*<  TX  •  (1  -  .25/OF)  )/SQR(l  ♦  .5*TXC2/DF) 

12510  MU-0  1  VAR-1  1 12-1  1  GOSUB  *000 
12520  PX-TX 
12530  AT-2*FOX  -  1 
12540  RETURN 
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E  -  DISTRIBUTION 

13000  REM  •  ••  F-DISTRIBUTION  SUBROUTINE 

13010  IF  12-1  GOTO  13110 

13020  CLS  1  PRINT  920, “F-DISTRIBUTION* 

13030  PRINT  9128, **;:  INPUT'Entar  F-SUti*tic  x  “IFX 

13040  IF  FX<0  THEN  PRINT9128,  CHR«(233);:PRINT  9128,‘F-STATISTIC  MUST  BE  A  POSITIVE  NUMBER*! TOR  I 

•I  TO  1500:NEXT1PRINT  9l28,CHR«l233>iiGOTO  13030 

130S0  INFUT'Enter  Dagraaa  of  Fraadoin  in  Numaritor'IDN 

13060  IF  DM>0  AND  DN-INT(DN)  GOTO  13080 

13070  PRINT'**  ERROR  ••  ENTER  AN  INTEGER  3  0‘SGOTO  13030 

13060  INPUT*  Entar  Dagraa*  of  Fraadom  in  Danonun*tor“!DD 

13090  IF  0030  AND  DD»INT<DD>  GOTO  131 10 

13100  PRINT'**  ERROR  •«  ENTER  AN  INTEGER  3  O'iGOTO  13080 

13110  PX-FX  S  IF  FX-0  THEN  FOX-O  1  QOX»l  i  RETURN 

13120  IF  DM  3  60  AND  DD  3  60  GOTO  13720 

13130  REM  •••  APPROX.  FOR  SMALL  TO  MODERATE  D.F.  ••• 

13140  Kl-DN  !  K2-DD  1  PX-FX 

13130  A«DN*FX/(DN*FX*DD> !  Al-l-A 

13160  IF  Al<  IE-37  THEN  A1-1E-37 

13170  D1-DN*.3  i  D2*DD*.3  !  D3-D1+D2-1 

13180  R-0  1  S1»0  !  S2«0  !  DL-1  !  C-.23 

13190  XM-l  1  XK-1  !  PI-3.141393  !  KN-DD 

13200  KM-INT(D2)*2 

13210  IF  KMOKN  GOTO  13390 

13220  KN-D2-1 

13230  IF  KN-0  GOTO  13320 

13240  FOR  1-1  TO  KN 

13250  S1-DL*S1*R 

13260  02-02' 1 

13270  03-03-1 

13280  TEM-A1/D2 

13290  R«D3*TEM 

13300  S2«(R+TEM)*S2 

13310  NEXT  I 

13320  S1-DL*S1*R 

13330  DL-0 

13340  T— 1 

13330  03— 1 

13360  S2-A*82 

13370  C-C*  4 

13380  GOTO  13370 

13390  KM-INTID2) 

13400  IF  KN-0  GOTO  13490 
13410  FOR  1-1  TO  KN 
13420  St-0L*S1*R 
13430  02-02-1 
13440  D3-D3-1 
13430  TEM-A1/02 
13460  R-D3*TEM 
13470  82-OKTEMM82 
13400  NEXT  1 
13490  81-XK*81 
13300  S2-XK*S2 
13910  ART-S0R<A1I 
13820  XM-XM*ART 
13930  T-<XM-ART)/A1 
13840  03-4 
13380  XK-2/PI 
13360  C-C  *2 

13870  IF  0473  GOTO  13660 
13300  02-01 
13990  03-02*03 
13600  82-01 
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13610  Sl-0 
13620  Al-A 

13630  IF  Al<  IE-37  THEN  Al-lE-37 
13640  KN-DN 
13630  GOTO  13200 

13660  IF  CO. 125  THEN  DL-4/PI  •  ATNIT) 

13670  F0X-XM*<S2-S1)-DL 
13680  IF  FOX<0  THEN  FOX-O 
13690  IF  FOX>t  THEN  FOX-t 
13700  QOX-l-FOX 
13710  RETURN 

13720  REM  •••  APPROX.  FOR  LARGE  D.  F.  •  •• 

13730  NX-<«FXKl/3»*<l-<2/<9*DD»)>-<l-<2/<9«DN)»>/SGR«2/(9*DN»*<FX[(2/3»*2/t9*DD» 

13740  MU-0  !  VAR-1  i  12-1 

13730  GOSUB  6000 

13760  PX-FX 

13770  RETURN 


INVERSE  NORMAL 

14000  REM  •  ••  INVERSE  NORMAL  SUBROUTINE 

14010  IF  12*1  GOTO  14100 

14020  CLS  1  PRINT  920,  'INVERSE  NORMAL* 

14030  PRINT  1  PRINT  !  INPUT'Efltar  Maan'IMO 
14040  INPUT  *Ent*r  V*ri6ne6‘;VR 

14030  IF  VR<-0  PRINT'**  ERROR  ••  'iVRJ'IS  NOT  A  VALID  VARIANCE'tGOTO  14040 
14060  INPUT'Entar  Probability  (1*.  Fix)  ■  Prob.  <  X  <■  x )  ■  *;PR 
14070  IF  PR-0  THEM  XQ-9E-36  ELSE  IF  PR-1  XQ-9E+36 
14080  IF  PR-0  OR  PR-1  RETURN 

14090  IF  PR<0  OR  PR>1  THEN  PRINT***  ERROR  •*  'iPRTIS  NOT  A  VALID  PROBAGIUTT'XjOTO  14060 
14100  IF  PR>.3  THEN  RL-SQRILOG(l/((l-PR)C2)))  ELSE  RL-SQRILOGI  1/1PRC2))) 

14110  XQ-RL-U2.313517+<.802853*RL)*(010328*RLC2»/(l+(1.432788*RL)+(.189269*RLt2)+(001308*RLI3))) 
14120  IF  PR>»J  THEN  XQ-MO*(SQR<VR)*XQ)  ELSE  XQ-MO-1SGR1VRXXQ) 

14130  RETURN 


INVERSE  CHI  -  SQUARE  DISTRIBUTION 

13000  REM  •••  INVERSE  CHI-SQUARE  SUBROUTINE 

13010  IF  12-1  GOTO  13090 

13020  CLS  I  PRINT  920, 'INVERSE  CHI-SQUARE* 

13030  PRINT  :  INPUT" Entar  Dqrm  of  Fraadom'JDF 

13040  IF  DF<-0  OR  DFOINT1DF)  THEN  PRINT***  ERROR  **  ENTER  AM  INTEGER  >  O'iGOTO  13030 
13090  INPUT  'Entar  Probability  i*.  Fix)  -  Prob.  1  X  <■  x  )  *  *!PR 
13060  IF  PR-0  THEN  XQ-0  i  RETURN 
13070  IF  PR-1  THEM  XQ-9E36  !  RETURN 

13080  IF  PR<0  OR  PR>1  THEN  PRINT"**  ERROR  *•  'JPRTIS  HOT  A  VALID  PROBABIUTT*tGOTO  13030 
13090  MO-O  1  VR-1  i  12-1  1  PZ-PR 
13100  IF  DF>1  GOTO  13130 
13110  PR-.3*<1-P» 

13120  GOSUB  14000 
13130  XQ-XQI2  1  PR* PI 
13140  RETURN 
13130  IF  DF>2  GOTO  13180 
13160  XQ— 2*LQG(1-Pl) 

13170  RETURN 
13180  GOSUB  14000 
13190  OQ-XQ 

13200  IF  DFM2+IMT(4*ABS<DO)»  GOTO  13300 

13210  X 9-1 .0000886  -  .2237368/ DF  -  O1313904/DFI2 

13220  X9-X9*<DFl-.3  •  DO  *  <.4713941  *  O2607083/DF  -  008?86007/OFC2» 

13230  X9-X9  *  U/DF  •  D0C2  *  (.0001348028  *  OU2S186/DF  ♦  02277679/DFI2)) 

13240  X9-X9  ♦  (OF t-t.3  •  0013  •  (-008333069  -  Ol  133761/OF  -  OI323293/DFI2)) 
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13290  X9-X9  ♦  (DFt-2  •  DOC 4  *  (.00312358  ♦  .003169634/DF  -  .006930356/DFt2» 
13260  X9-X9  ♦  (DFl-2.3  »  DO£3  •  (-.0008426812  ♦  .00233001/DF  ♦  .001060438/DF£2» 
13270  X9-X9  ♦  IDFC-3  •  00(6  •  (.00009780499  -  .0014301 17/DF  ♦  .0O1363326/DF121I 
13260  XO»DFdX9£3 
13290  RETURN 

13300  X9-1  -  2/<9«DF)  ♦  <4*DQ£4  ♦  ld*DQ(2  -28>/<1215«DFE2> 

13310  X9-X9  ♦  (8«DQC6  ♦  720«DQC4  ♦  3126»DQ£2  ♦  2904>/(229633*DFC '» 

13320  X8»DQ/3  *  (-DO!  3  ♦  3*DQ)/(162«DF) 

13330  X8-X8  -  <3»DGC3  ♦  40-DOC3  *  45*DQ>/(3832»DFt2> 

13340  X8-X8  ♦  (301*DOC7  -  1317#DQ£3  -32769*DOE3  -  79349dDG)/<7873200»DFE3> 
13330  X8-  SQR(2/DF)  •  X8 
13360  XQ-DF  »  «X8*X9>£3> 

13370  RETURN 


DEEBSE..-1 

16000  REM  •••  IN  VERSE- t  SUBROUTINE 
16010  IF  12-1  GOTO  16090 

16020  CLS  !  PRINT  916,  *INVERSE-t  PROBABILITY  DISTRIBUTION’ 

16030  PRINT  !  INPUT’Entdr  Degree*  of  Fr**dom“!DF 

16040  IF  DF<«0  OR  DFOINT1DF)  THEN  PRINT’**  ERROR  *•  ENTER  AN  INTEGER  >  O’SGOTO  16030 
16030  INPUT’Entdr  Probability  i.a.  F(x)  -  Prob.  (  X  <«  t  )  ■  "PR 
16060  IF  PR-1  THEN  XQ-9E36  ELSE  IF  PR-0  XQ-9E-36 
16070  IF  PR-1  OR  PR-0  RETURN 

16060  IF  PR<0  OR  PR>1  THEN  PRINT" »«  ERROR  «  ’JPRl’IS  NOT  A  VALID  PROBABIUTT'COTO  16090 
16090  MO-O  1  VR-1  i  12-1 
16100  GOSUB  14000 

16110  xc-xa 

16120  XQ-1.23  #  (XCC3  ♦  XCD/DF 

16130  XQ-XQ  ♦  <(1/96)  •  (3*XCE9  ♦  16*XCE3  ♦  3*XC»/DFE2 

16140  XQ-XQ  ♦  ((1/384M  <3*XC£7  ♦  19»XC£3  ♦  17*XC£3  -13*XC»/DFE3 

16130  XQ-XQ  ♦  <(1/92160)  •  <79*XCE9  ♦  776#XCC7  ♦  1482*XC£3  -1920*XC£3  -943*XC))/DF£4 

16160  XO-  XC  ♦  XQ 

16170  IF  DF>3  RETURN 

16180  IF  PH>.03  AND  PRC.93  GOTO  16230 

16190  IF  DF>1  GOTO  16210ELSE  IF  PR3.999  OR  PR<.001  THEM  DELTA-1000  ELSE  DELTA-100 
16200  GOTO  16240 

16210  IF  DF-2  AND  PR3.99  THEN  DELTA-100  ELSE  DELTA  -10 
16220  GOTO  16240 
16230  DELTA-1 

16240  IF  PR3-.3  THEN  TX-XQ  ELSE  TX— XQTX-XQ 
16230  XF PR>-«3  THEN  PE-PR  ELSE  PE-l-PR 
16260  GOSUB  12000 

16270  IF  ABS(PE-FOX)  >•  .00001  THEN  GOTO  16290 ELSE  IF  PR-PE  THEN  XQ-TX  ELSE  XQ— TX 
16280  RETURN 

16290  IF  PE  <  FOX  THEN  TX-TX -DELTA 
16300  IF  PE  <  FOX  THEN  DELTA-DELTA/ 10 
16310  IF  PE  <  FOX  THEM  GOTO  16260 
16320  TX-TX+DELTA 
16330  GOTO  16260 


THVmSET 


17000  REM  •  ••  INVERSE-F  SUBROUTINE 

17010  IF  12«1  GOTO  17130 

17020  CLS  1  PRINT  9  22.  "I  M  V  E  R  S  E  -  F* 

17030  PRINT  !  PRINT 

17040  INPUT’Enttr  D*qr**»  of  PfMOom  in  Numerator*  !DN 

17080  IP  DN>0  AND  DN-INT(DN)  GOTO  17070 

17060  PRINT***  ERROR  ••  ENTER  AN  INTEGER  >  O'lGOTO  17040 

17070  INPUT*  Ent*r  D*gr**»  of  Freedom  in  Denomim*tor‘;DD 

17080  IF  DD>0  AND  DD-INT(DD)  GOTO  17100 

17090  PRINT***  ERROR  *•  ENTER  AN  INTEGER  >  0-1GOTO  17070 

17100  INPUT  *Ent*r  Probability  l.a.  F(x)  «  Prob.  (  X  <■  x  )  »  *SPR 

17110  IF  PR<0  OR  PR>1  THEN  PRINT***  ERROR  •*  "JPRJ'IS  NOT  A  VALID  PROBABILITY*:GOTO  17100 

17120  IF  FR3.999  PRINT  THIS  SUBROUTINE  DOES  NOT  CALCULATE  GUAM  TILES  CORRESPONDING  TO  PROBA 

BIUTIES  GREATER  THAN  .999*:GOTO  17100 

17130  IF  PR-1  THEN  PR-.9999 

17140  IF  PR-0  THEN  XQ-0  1  RETURN 

17130  IF  DN<20  OR  DD<20  GOTO  17230 

17160  MO-O  1  VR-l  1 12-1 

17170  GOSU8  14000 

17180  H  -  2  •  ( (1/(DD-1)  *  1/<DN"1))C-1  1 
17190  LM  -  IX0C2  -  31/6 

17200  HX-ttQ  •  SQHtH  ♦  LMU/H  -  <  (1/(DM-1)  -  l/CDD-l)  >  •  l  LM  ♦  3/6  -  2/(3*H)  » 

17210  XQ  -  EXP(2*HX) 

17220  RETURN 

17230  IF  DNOl  AND  DDOl  OR  DN-1  AND  DD-1  GOTO  17330 

17240  PH-PR  1  IF  DN-1  THEN  PR-<l*PR>/2  ELSE  PR-l-PR/2 

17230  IF  DN-1  THEN  DF-OD  ELSE  DF-DN 

17260 12-1  i  GOSUB  16000 

17270  XO-XQ*XQ  1  IF  DD-1  THEM  XQ-l/XQ 

17280  PR-PH 

17290  IF  PR>.99  THEN  XQ-.994*XQ  1  GOTO  17320 

17300  IF  PR3-.973  AND  DN>3  THEN  XQ-.993*XQ  1  GOTO  17320 

17310  IF  PR3-.93  AND  D1D3  THEN  XQ-.996«XQ 

17320  RETURN 

17330  IF  PR>.999  AMD  DD-1  THEN  X0-9E36  1  RETURN 
17340  IF  PR3-.997  AND  DD-1  THEN  DELTA-300000  1  GOTO  17410 
17330  IF  PR3-.993  AND  DD-1  THEN  DELTA-13000  5  GOTO  17410 
17360  IF  PR>.99  AND  DD-1  THEN  DELTA-3000  1  GOTO  17*10 

17370  IF  PR3-.973  AND  DD-1  OH  PR3-.999  AND  DD-2  THEN  DELTA-1000  1  GOTO  17410 

17380  IF  FR>.9  AND  DD-1  OR  PRO.S-9  AND  DIX-2  OR  PR3-.999  AND  DDC-3  THEM  DELTA-100  1  GOTO  17410 

17390  IF  PR3-.99  AND  DD<-3  THEN  DELTA-30  1  GOTO  17410 

17400  IF  PRJ-.973  AND  DDC-2  THEN  DELTA-30  ELSE  DELTA- 10 

17410  LL-0 

17420  FX-DELTA 

1743012-1  1  GOSUB  13000 

17440  IF  A83<PR-FOXK"«00001  THEM  XO-FX  !  RETURN 

17430  IF  PR  <  FOX  THEM  DELTA-DELTA/2  i  FX-DELTA  !  GOTO  17430 

17460  LL-FX  1  FX -FX-DELTA  !  UL-FX  1  GOSUB  13000 

17470  IF  ABStFR-FOXK-.OOOOl  THEN  XQ-FX  1  RETURN 

17480  DELTA-4UL-LU/2 

17490  FX-LL-DELTA 

17300  GOSUB  13000 

17310  IF  ABS<PR-FOXK*. 00001  THEN  XO-FX  i  RETURN 
17320  IF  PR  >  FOX  THEN  LL-FX  ELSE  UL-FX 
17330  GOTO  17480 


18000  REM  *♦•  INVERSE  EXPONENTIAL  SUBROUTINE 
18010  CLS  i  PRINT  920, “INVERSE  EXPONENTIAL* 

18020  PRINT  :  PRINT*  You  may  either  antar  the  exponential  parameter  (LAMBDA)  or* 

18030  PRINT'the  exponential  MEAN  (1 /lambda).’ 

18040  KP-320  1  L»»“l*  :  R«-*m*  t  GOSUB  600 
18090  ZEP*ZQ 

18060  IF  I£P«*1*  OR  ZEP«*L*  THEN  ZEP»“LAMBDA*  ELSE  ZEF-*MEAN* 

18070  PRINT  i  PRINT*Enter  *3EP; 

18080  INPUT  LAMBDA 

18090  IF  LAM  O  0  THEN  PRINT’**  ERROR  ♦*  ENTER  A  VALUE  >  O'TGOTO  18070 
18100  PRINT  !  INFUT’Enter  Probability  i.e.  Prob. I  TC*t)  »*!PR 
18110  IF  PR“0  THEN  TI*0  i  PR*1  1  GOTO  18160 

18120  IF  PH*1  THEN  PRINT  !  PRINT'For  Prob.  <  T  <■  t  >  ■  1.0  t  ■  infinity*tRETURK 

18130  IF  PR<0  OR  PR>1  THEN  PRINT***  ERROR  ♦*  'IPRl'IS  NOT  A  VALID  PROBABIUTT’tGOTO  18100 

18140  PB-t-PR 

18190  IF  ZEP»*LAMSDA*  TI-  -  LOG(PB)/LAMBDA  ELSE  TI  ■  -  LOG (PB)* LAMBDA 
18160  PRINT  t  PRINT’For  Prob.  (  T  <»  t  )  -*5PRS*  t  •*m 
18170  RETURN 


PROGRAM  9»2 


MEMO 

10  REM  •••MAIN  M  E  N  0  ••• 

20  CLS  :  PRINT  TAB(20>  "*••  MENU  •«•* 

30  PRINT 

40  PRINT*(1)  Sample  Statistics  (mu.  sigma,  gt,  g2> 

90  PRINT" (2)  Seven  Number  Summery 

60  PRINT"(3)  Histogram.  Stem  &  Leaf,  Probability  Plots 

70  PRINT*<4)  Return  to  Program  Selection  Menu 

80  PRINT  9649, "NUMBER  OF  OPTION  DESIRED  ";CHRS(123)1CHRS(176)^HR*(129> 

*0  ZI-INKEY9  !  IF  GOTO  70 ELSE  IO»VAL(ZI> 

100  PRINT  9671  ,Uli  FOR  I»1  TO  100!  NEXT 

110  IF  ICK1  OR  IO>4  THEN  PRINT  9640,CHRS<253)  !  PRINT  9640, "*«♦  NOT  A  VALID  OPTIOM  »«"l  FOR  1-1  TO 

1000  ;  NEXT  :  PRINT  9640,  CHR»<253>  :  GOTO  SO 

120  ON  10  GOSUS  900,  1000,  2000,  10000 

130  GOTO  10 

140  CLS 

190  PRINT*Optian*;iO;*is  not  applicable  sines  only  sample  statistics  were  entered." 

160  PRINTQ960," Press  SPACE  BAR  to  return  to  main  menu"! 

170  PRINT  "Kurtosis  «*:G2 
180  IF  INKEY90*  *  GOTO  180 
190  CLS 
200  GOTO  10 


DISPLAY  SAMPLE  STATISTICS 

900  REM  •••SAMPLE  STATISTICS  SUBROUTINE 
910  CLS 

920  PRINT  TAB(23rSAMPLE  STATISTICS* 

930  PRINT  9192,'Sample  Mean  »*:XB 

940  PRINT  "Sample  Variance  (unbiased  estimate)  »*,*V1 

990  PRINT-M.L.E.  for  Variance  -"JV 

960  PRINT  "Std.  Deviation  (sqr.  root  of  sample  var.)  »*!SQR<V1) 

970  PRINT  "Skewness  ■"!Gl 
980  PRINT  "Kurtosis  **:G2 

990  PRINT  :  PRINT-NOTE:  The  unbiased  estimate  of  variance  * 

600  PRINT*  *;CHRS(123):*  ie,  SUM  (XU)  -  Xbar)C2  /  (n-t)  *;CHRS(1Z9>;*  is  used  in- 
610  PRINT*  all  subsequent  calculations  throughout  the  package." 

620  PRINT  9760, ‘PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU*: 

630  IF  INKTYS  O  *  *  GOTO  630 
640  RETURN 


SEYEB  MVMBEB  5VMMABI 

1000  REM  •••SEVEN  NUMBER  SUMMARY  SUBROUTINE 
1010  CLS 

1020  PRINT  TAB(1  IPS  EVEN  NUMBER  SUMMART* 

1030  MD-INT(.9*(IM*1»  :  QD»INT(.5*<MD*1»  :  ED«INT(.3»<QD*l» 

1040  IF  IN/2*INT(IN/2)  THEN  M-.S*(Y(MD)rY<MD+l!)  ELSE  M-YCMD) 

1080  IF  QD"4*(MDU  >  THEN  QL*Y(QD)  :  QU«Y1IN-QD*1) !  GOTO  1070 
1060  QL-J*(Y<QD>*Y(GD*IH  !  QU»  J«(Y(IN-QDHY(IN-GDrl» 

1070  IF  ED*,9«(QD*1)  THEN  EL«Y(ED)  !  EU-YON-EDM)  S  GOTO  1090 
1080EL-J«(T(ED)»Y(ED*1»  :  EU-^«(T(IN'EDHYaN-ED»l» 

1090  TV-M  i  GOSUB  1250  :  PRINT  9146, 'MEDIAN  -  "K  PRINT  USING  P»!M! 

1100  PRINT  9237, 'MEASURES  OF*! 

1110  PRINT  9267, "LOWER  MEAN  UPPER  SKEWNESS* 

1119  PRINT  9331,' - -  -  - * 

1120  PRINT  9384, "QUARTER!"  !  TV-QL  :  GOSUB  1290  !  PRINT  9394, "SPRINT  USING  F9JQU 
1130  TV*J«(QLtGU) !  GOSUB  1250  !  PRINT  9405,'*;:PRINT  USING  P*!  TV! 
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114$  TV-QU  :  GOSUB  1250  :  PRINT  04I4.**::PRINT  using  p*;qu; 

1130  TV*  (J*(QU*OL)  -  MI/IQU-QL)  i  GOSUB  1230  :  PRINT  0431,““;:PRINT  USING  P9JTV5 

1133  PRINT  9312.-EIGTH:*::  tv-el  :  GOSUB  1250  :  PRINT  0322,““::PRINT  USING  P41ELJ 

1140  TV-.3»(EL*EU> !  GOSUB  1230  :  PRINT  0333,““;:PRINT  USING  P4iTVS 

1143  TV-EU  !  GOSUB  1250  :  PRINT  0344,““;:PRINT  USIMG  P*!EU5 

1170  TV*(.5*(EL*EU)  -  MI/  EU-ELi  !  GOSUB  1250  !  PRINT  9559,“*;:PRINT  USING  PtJTV! 

1173  PRINT  0440, “EXTREME!'!  :  TV*Y<1> :  GOSUB  1230  :  PRINT  043O,**::PRINT  USING  P9{  T(l)i 
1180  TV«.5»(Y<U*Y(IN)> :  GOSUB  1230  :  PRINT  0441,““ SPRINT  USING  P*!TV; 

1190  TV-YGN) :  GOSUB  1230  :  PRINT  0672,“";:PRINT  USING  Pt;Y(IN)5 

1200  TV*(.3»(Y<1N)*Y<1»  -  M)/(Y<IN)-Y<1»  !  GOSUB  1250  :  PRINT  0487,““i:PRINT  USING  P*STV 
1210  PRINT  0894,“Pre«*  SPACE  BAR  whan  ready  to  return  to  program  maou*: 

1220  IF  1NKEY40*  “  THEN  1220 
1230  RETURN 
1230  HB-ABS(TV) 

1233  Pl»(l>-*8.##8#*  1  Pl*(2  )—*••,#••*  !  Pl«<3>-*##«.##“  i  Pl*<4>«*8488.0*  i  PI  •«>■•••♦#•*  :  Pl«(4>-*0*8# 
tilt* 

1240  IF  HB7-.0001  AND  HB<1  OR  HB-0  THEN  P*-Pl*(l> !  RETURN 
1270  IF  HB>-1  AND  HB<10  THEN  P*-P1  »<21 1  RETURN 
1280  IF  HB7-10  AND  HB<100  THEN  P«-P1«<3)  1  RETURN 
1290  IF  HB7-100  AND  HB<1000  THEN  P*«P1»<4> :  RETURN 
1300  IF  HB5-1000  AND  HB<10000  THEN  P*-P1*<5>  !  RETURN 
1310  P4— Pl*<4> :  RETURN 


2000  REM  •••  DATA  PLOTS  SUBROUTINE 
2010  CLS 

2020  PRINT  TAB<23)*D  A  T  A  PLOTS* 

2030  PRINT  :  PRINT 

2040  PRINT  “MENU:*  :  PRINT*  (1)  Histogram 
2090  PRINT*  (2)  Stem  fi  Leaf  Plot 
2040  OC  -Cl 

2070  PRINT*  (3)  Normal  Probability  Plot 
2080  PRINT*  (4)  Exponential  Probability  Plot 

2090  PRINT  0443, 'NUMBER  OF  OPTION  DESIRED  *:CHR*U23>SCHR*<174>;CHR*<123> 

2100  ZI- INKEY*  :  IF  ZI«‘*  GOTO  2100 ELSE  IO-VALOI) 

2110  PRINT  9471, nj:  FOR  I«l  TO  100  :  NEXT 

2120  IF  ICK1  OR  1034  PRINT  0440,  CHR«<230>K  PRINT  0440,’aa*  NOT  A  VALID  OPTION  ****;:FOR  1-1  TO  10001 
NEXT  1  PRINT  0440 ,C  HR*  (233)  :  GOTO  2090 
2130  IF  IO>-3  GOTO  2200 

2140  PRINT  044O,“Min  Value -*:Y(1);*  Mas  Value  ■•JYONKPRINT’  Range  -TYlINKTOl 

2130  PRINT  :  PRINT" AFTER  VIEWING  *1!  IF  IO-1  PRINT'HISTOGRAM*;  ELSE  PRINT-STEM  &  LEAF"! 

2140  PRINT*  PRESS  SPACE  BAR  TO  CONTINUE*: 

2170  IF  IN<«30  OR  IO-2  THEN  FOR  1-1  TO  2000  i  NEXT 
2180  SC*10t(INT(L0G(Y(IN>-Y(l))/LOGU0)» 

2190  NB-0  :  CI-1 

2200  ON  10  GOSUB  3000,  4000,  3000,  4000 
2210  RETURN 


MSIPORM 

3000  REM  ***  HISTOGRAM  SUBROUTINE 
3010  NB-0 

3020  IF  SC<1  THEN  GF-INT(Y(1)/5C)  ELSE  GF-INTrYCl)/IKT(SC» 

3030  IF  SC<1  GOTO  3040 

3040  IF  GF  ♦  NB-CI  <  INT(YOM)/INT(SC)l  -  IE- 4  AND  NB  <-  13  THEN  NB-NB+t  i  GOTO  3040 
3030  GOTO  3070 

3040  IF  GF  ♦  NB*CI  C  (1NT(Y(IN)/SC)  ♦  IE-4)  AND  NB  <-  13  THEN  KB-KB+1  i  GOTO  3040 

3070  FC-RB/13  !  IF  POl  THEN  CKI-1  :  NB-0  !  GOTO  3020 

3080  IF  BF*O“0N*  AND  PCC1/3  THEN  CI-CI/2  !  NB-0  !  GOTO  3020 

3090  n-i 

3100  FOR  1*1  TO  NB  S  NIG>-0 

3110  FOR  7-II  TO  IN  !  IF  YO)/SC  <  1*CI  -  INT(Y(1)/SC)  -  IE -4  THEN  NKD-KMMl  ELSE  U-J  1  GOTO  3130 
3120  NEXT  7 


I 


3130  XF  n  >  IN  GOTO  3130 
3140  NEXT  I 

3190  MN-0  :  FOR  I-l  TO  NB  !  IF  NI(I>  3  MN  THEM  MN-MI(I) 

3140  NEXT  I 

3170  IF  MN  <  11  THEN  VS-,29  :  GOTO  3200 

3180  IF  MN  <  22  THEN  VS-,9  :  GOTO  3200 

3190  IF  MN  >  43  THEN  VS«t  ELSE  VS-INTIMM/49)*! 

3200  IF  SC  <  1  GOTO  3240 

3210  CLS  !  CN-INTIY<1>/INT(SC» :  FOR  1-0  TO  4*<NB>  STEF  4 
3220  TN-CN-INT1CN)  !  IF  TN-0  OR  TN-.3  THEN  PRINT  0961*1,  CMS 
3230  CN«CN*CI 

3240  IF  CN/SC  >  19*CI  ♦  INT(T(l)/SC)  GOTO  3310 
3230  GOTO  3300 

3240  CLS  :  CN*INTfT<l>/SC>  i  FOR  I  *  0  TO  4*NB  STEF  4 

3270  TN-CN-INT1CN) :  IF  TN-0  OR  TN-.3  THEN  PRINT  0961*1.  CHI 

3280  CN-CN*CI 

3290  REM  IF  CN  >  13*CI  *  INT(T(1)/SC)  GOTO  1882 
3300  NEXT  I 

3310  IF  VS>1  THEN  LN-2  ELSE  LN-0 
3320  FOR  1*0  TO  14 

3330  IF  VS>-I  THEN  PRINT  3896-1*44,  MIDS(STR*<VS*LM),2.3>**-*::  LM«LN*3  :  GOTO  3370 
3340  IF  1*2  THEN  K-2  ELSE  IF  1-6  THEN  Z-3  ELSE  IF  1-10  THEN  K*8  ELSE  IF  1-14  THEN  K-U 
3390  IF  VS- .3  THEN  K-2*K 

3340  IF  1-2  OR  1-6  OR  1-10  OR  1-14  THEN  PRINT  3896-1*64, MlD*(BTR*aC>.2,2>**-*; 

3370  MEXT  I 

3380  XI -9  1  FOR  I-l  TO  NB  :  IF  NI(I)«0  GOTO  3440 

3390  JU-NIID/VS  -  1  :  EC-HI(I)/VS-JU  :  IF  EC< .9  THEN  GOTO  3410 

3400  IF  VS>2  THEM  JU-JU*  1 

3410  FOR  J-0  TO  JU  5  Y1-44-J  !  IF  Y1<0  THEN  Tl-0 

3420  SETIX1.Y1)  1  SET(Xl-l.Yl)  :  SET(X1-2.Y1)  1  SET(X1*2,Y1> :  SET(X1*I,Y1> :  SET(X1-3,T1)  !  IF  X1C124  THEN  S 

rrai*3,Yt) 

3430  NEXT  J 

3440  X1-X1*8  !  NEXT  I 

3490  IF  SCOl  THEN  PRINT938,*Actuel  Velues  *r#“;VAL(STR*<SC)>;:  PRINT  3102, 'tun**  honnntel  velum*! 

3440  IF  INKET4  O  *  *  GOTO  3460 

3470  CLS  :  PRINT-OPTIONS!*  S  PRINT*  (II  Return  to  Menu*  :  PRINT*  (2)  Redraw  Hi*tog>-*m  with  lerger  dui  in 
tervel*  1  IF  NH<-7  PRINT*  13)  Redrew  with  smeller  dess  intervel* 

3480  PRINT  0433. "NUMBER  OF  OPTION  DESIRED  *,*CHR9(123>Z:HRS(176>;CHRS(129> 

3490  ZI-INKEYS  !  IF  II-**  GOTO  3490ELSE  I0-V4L0I) 

3900  PRINT  Q479,Zi;:  FOR  I-l  TO  100  :  NEXT 
3910  IF  NB>7  THEN  IU-2  ELSE  IU-3 

3920  IF  IO<l  OR  IO>IU  PRINT  3448.CHRS1293) :  PRINT  9448,****  NOT  A  VALID  OPTION  •***:  FOR  I-l  TO  100 
0  1  MEXT  :  PRINT  9448,CHRS(293> :  GOTO  3480 
3830  IF  10-2  THEN  BF»-*ON*  ELSE  SF»-"OFF* 

3940  IF  10- 1  THEN  RETURN  ELSE  IF  10-2  THEN  CI-2*CI  ELSE  CI-CI/2 

3990  CLS  :  PRINT’ AFTER  VIEWING  HISTOGRAM,  PRESS  SPACE  BAR  TO  CONTINUE*; 

3940  KB-0  1  GOTO  3020 


nnuusAF 

4000 REM  •••  STEM  &  LEAF  SUBROUTINE  •«« 

4010  CLS  :  IF  SCOl  THEN  PRINT’ ACTUAL  VALUES  ARE*3C;*TIMES  THOSE  SHOWN* 
4020  SP-IMT(T(l)/SC*lE-6) 

4030  IF  SP<0  THEN  SP-SP-CI 
4040  EP-INT1T (IN)/SC )  ♦  Cl 

4090  IF  ABS(EP-SP)/CI<«3  THEN  CI-CI/2  i  GOTO  4010 
406014-01  JC-1  :zp-** 

4070  FOR  CO-SP  TO  EP  STEP  Cl 

4080  IF  CO  <  0  THEN  CJ-INT(C0)*1  ELSE  CJ-INT(CO) 

4090  IF  CJ  -  0  AND  CO  <  0  GOTO  4120 

4100  PRINT  USIMG**«0*;CJ; :  PRINT  CHR«<124>! 

41 10  GOTO  4130 

4120  PRINT*  -0*!CHR*U24>| 

4130  FOR  J-JC  TO  IN 

4140  XF  Til)  O  INTI  TUI )  GOTO  4170 
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4130  I F  Y(1>/SC  >  CO*CI  GOTO  4330 
4160  GOTO  4180 

4170  IF  Y(1*/SC  ♦  IE-6  >-  CO  *C1  THEM  GOTO  4330 

4180  IF  Y(JI  >•  0  GOTO  4230 

4140  IF  Y(JJ  <>  IMT  iY<J»  GOTO  4230 

4200  IF  Y(J)/SC  -  .001  <-  COM  ANO  Y(J)/SC  >  CO  -  Cl  ♦  1.001  THEM  SL-UO«<TtJ>/SC  -  IXTCTlJ)/SC*lE-6>»  ELS 

E  GOTO  4310 

4210  IF  16*0  THEM  16- 1 

4220  GOTO  4230 

4230  IF  Y<J)/SC*lE-6  >-  CO  AMO  Y<J)/SC*lE-6  <  CCKCI  THEM  SL-UO*<TCJ)/SC  -INT<T(J)/SC*lE-6»  )  ELSE  GOT 
0  4310 

4240  IF  16-0  THEM  16-1 

4230  IF  Y(JK0  AND  SL  O  0  THEN  SL-10-SL 

4260  ZS-MID41  STH4<SL>  ,2.1) 

4270  IF  IS-*.*  THEN  2S-*0* 

4280  IF  COCO  THEN  ZP-IS  -  ZP  ELSE  ZF-ZP*ZS 

4240  JC-JC*)  !  IF  JC  >  IN  THEN  JC-IM 

4300  GOTO  4330 

4310  IF  16-1  THEN  16-2 

4320  IF  16-2  GOTO  4330 

4330  MEXT  J 

434016-0 

4330  PRINT  ZP  !  IP-**  1 16-0  :  MEXT  CO 

4360  PRINT0460, 'PRESS  SPACE  BAR  TO  CONTINUE*! 

4370  IF  INKEY*  <>  •  •  GOTO  4370 

4380  IF  ABSKEP*SP)/CI»8  THEN  RETURN  ELSE  CLS!  PRINT" Do  you  want  to  *aa  tha  Stam  £  Laaf  with  a  amallar 
Clam  Intarval* 

4340  PRINT  9147 ,CHR*<1 23)5*  T  or  N  *!CHR*«123K*  ■*,CHR*<123>;CHR*(176>!CHR*U23> 

4400  ZI-INKEYS  :  IF  ZI«**  GOTO  4400ELSE  PRINT  9210, Hi!  FOR  1-1  TO  100  !  NEXT 
4410  IF  ZI-*y*  OR  ZI-*Y*  THEN  CI-CI/2  !  GOTO  4000 
4420  IF  ZIO*n*  AND  ZIO’N*  THEN  GOTO  4340 
4430  RETURN 


MQMiaL  rttUBAHILITT  PLOT 

3000 REM  •••  NORMAL  PROBABILITY  PLOT  SUBROUTINE 
3010  CLS 

3020  PRINT-NORMAL  PROBABILITY  PLOT  OF!* 

3030  PRINT*  (1)  Evary  data  point 
3040  PRINT*  <21  Evary  othar  data  point 
3030  PRINT*  (3)  Evary  Nth  data  point 

3060  PRINT  9643, "NUMBER  OF  OPTION  DESIRED  *!CHR*<123>!CHR*<176>SCHR*(123> 

3070  H-INIET*  !  IF  ZI-**  GOTO  3070ELSE  IO-VALOI) 

3080  PRINT  9671, n;:  FOR  1-1  TO  100  :  NEXT 

3040  IF  IOC1  OR  IO>3  THEN  PRINT  9640,  CHR*(230)!!  PRINT  9640,"*—  NOT  A  VALID  OPTION  *♦**!!  FOR  1-1  TO 
10001  NEXT  S  PRINT  9640.  CHR»1230>;*.  GOTO  3060 
3100  IF  IO-l  OR  10-2  JT-IO  !  GOTO  3120 
3110  PRINT  9704,**!JINPUT*Entar  N*U 
3120  CLS  !  PRINT  964,' ’*3  -*i 
3130  PRIMT  9142, “*2  -*! 

3140  PRIMT  9320,-6 1  -*! 

3130  PRINT  9448,*  0  -*! 

3160  PRINT  9376, *-l  -*! 

3170  PRINT  9704, *-2  -*! 

3180  PRINT  3832, "-3  -*! 

3140  FOR  1-1  TO  43 
3200  SET  (3.1) 

3210  NEXT  I 

3220  FOR  1-3  TO  123 

3230SCTa,43) 

3240  MEXT  I 

3230  PRINT  920, -NORMAL  PROBABILITY  PLOT*! 

3260  SP-INT(Ytl)) !  IF  YiIN)  «  IMT  (Y(IN»  THEN  EP-YON)  ELSE  EP-INT(YdN)Ml 
3270  PRINT  9462,  SF! 

3280  I-  INTI  LOG<ABS(EP))/LOG<  1 0) ) 


i 
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3290  PRINT  (J1021 -I,  STK*<EP>! 

3300  RG-EP  -  SP 

3310  MP- SP  ♦  RG/2  !  IF  MP>I0  THEM  MF-INT(MP) 

3320  PRINT  0^0  -  INTtI/2),  MPJ 

3330  12-1  !  MO-O  1  VR-1 

3340  FOR  I-l  TO  IN* I  STEP  J 

3350  IF  DIN  THEN  I-IN 

3360  OV-  123  -  INTI  CEP  -  T(I»/RG  •  120) 

3370  PR-  I/1INM) 

3380GOSUB  7000 

3390  IF  XQ  <  0  GOTO  3420 

3400  OH  -  22  •  INT(  (XQ/3.3)  •  22  ) 

3410  GOTO  3430 

3420  OH-  22  ♦  INT  (  <ABS(XQ)/3.3)  •  22) 

3430  SETIOV.DH) 

3440  IF  I-IN  GOTO  3460  \ 

3430  NEXT  1 

3460  IF  INKET*  O  *  *  GOTO  3460 
3470  RETURN 


EXPONENTIAL  PROBABILITY  PLOT 

6000  REM  •  #*  EXPONENTIAL  PROBABILITY  PLOT  ••• 
6010  CLS 

6020  PRINT  Q64, -6  -* 

6030  PRINT  0192, “3  -* 

6040  PRINT  032O,"4  -■ 

6030  PRINT  0448,-3  -■ 

6060  PRINT  0376,-2  -* 

6070  PRINT  0704,- 1  -• 

6000  PRINT  0832,-0- 
6090  FOR  I-l  TO  39 
6100  SET(3,I> 

6110  NEXT  I 

6120  PRINT  0833«STRING*(6O,-.*U- 

6130  PRINT  020,-EXPONENTIAL  PROBABILITY  PLOT*! 

6140  CI-Y(IN)/20 

6130  HS  -  10  t  (INT  (LOG(CI*13)/LOG(10)I  -1) 

6160  Cl-  INT  (CI/HS)  ♦  l 
6170  FOR  1-0  TO  19 
6180  ZH-STRVC  I*(I>  1 » 

6190  IF  CI*(I+1)  >-100  AND  INT 0/2)  -  1/2  GOTO  6210 

6200  PRINT  0898+I«3.ZHS 

6210  NEXT  I 

6220  PRINT  0990,  -X*5 

6230  IF  HS  •  1  THEN  GOTO  6240 ELSE  PRINT  *  **JHS! 

6240 IG-0 
6230  IX-IN 

6260  FOR  1-20  TO  1  STEP  -1 

6270  IF  YOX)  >  I*CI«HS  THEN  IG-IG+1  !  IX-IX-1  i  GOTO  6Z70 
6280  IF  IG-0  OR  IG-IH  GOTO  6320 
6290  OV-I*6 

6300  OH-  40  -  INTI-LOG (IG/tlN+D)  *  6) 

6310  SET  (OV.OH) 

6320  IH-IG 
6330  NEXT  I 

6340  PRINT  0133,‘Pra**  SPACE  BAR  to  continuo*} 

6330  IF  INKEY*  O  *  *  GOTO  6330 
6360  RETURN 


78 


7000  REM  INVERSE  NORMAL  SUBROUTINE 

7010  IF  PR* .3  THEN  XQ-MO  !  RETURN 

7020  0*2.315317  1  C2-.802833  !  C3*.010328  !  C4-1. :  C3-1. 432788  !  C6-.189269  :  C7-.001308 
7030  IF  PR3.5  THEN  RL*SQR<L0GIC4/«C4-PR>*(C4-PR»»  ELSE  RL*SQR(LOG(C4/(PR«PR)» 
7040  XO-RL-«Cl+<C2»RL>*<C3eRL*RL»/<C4*<C3»RL>+<C6#RLeRL)*(C7eRL»RL»RL»> 

7090  IF  PR>.3  XQ«MO*<SQR(VRJ*XO>  ELSE  XQ«MO-lSQR(VR)*XQ) 

7060  RETURN 


10000  REM  #*•  PROGRAM  SELECTION  MENU 
10010  CLS 

10020  PRINT  TAB(20J*PROGRAM  SELECTION  MENU* 

10030  PRINT  0128, "tl  Oat*  I/O.  Tran* formation* ,  Prod.  £  Inv.  Prob.  Distribution*" ‘.PRINT 

10040  PRINT*#2  Sample  Stat's,  7-Num-Sum,  Plot**:PRINT 

10090  PRINT* #3  Parametric  Tests  of  Hypotheses  £  Confidence  Intervals’lPRIMT 

10060  PRINT’ 84  Robust  Estimates  and  Confidence  Intervals" IFRINT 

10070  PRINT* #5  Multiple  Linear  Regression"  1PRINT 

10080  PRINT" *6  Analysis  of  Variance" 

10090  PRINT  (??OOt"NUMBER  OF  PROGRAM  DESIRED  *;CHR»U23>;CHR*<176)iCHR*<123) 

10100  ZI-INKETP  1  IF  II***  GOTO  10100ELSE  I0*VALai> 

10110  PRINT  @927 ,ZI;:  FOR  1-1  TO  100!  NEXT 

10120  IF  IOCl  OR  IO>6  THEN  PRINT  0896,CHR«<233>i:PRINT  0896,-ee*  MOT  A  VALID  OPTION  eee-JS  FOR  1*1  T 

O  1000  :  NEXT  :  PRINT  0896,CHR«(293>;:  GOTO  10090 

10130  IF  10*2  GOTO  10 

10140  IF  10*1  THEN  2T«*1*  !  GOTO  10160 

10130  IF  10*3  OR  10*4  THEN  IT**2*  ELSE  2T**3* 

10160  CLS:PRINT*INSERT  TAPE  #*!2T1*  INTO  ESF-80  AND  PRESS  SPACE  BAR* 

10170  IF  INKET*  O  *  *  GOTO  10170 

10180  IF  10*1  OR  10*3  OR  10-3  THEN  1 0-1  ELSE  10*2 

10190  QLOAO  10 


PROGRAM  4»3 


MEMO 

10  REM  •••MAIM  M  E  M  U  ••* 

20  L*-CHR*<123>  :  RS-CHRSU23)  :  BLs-CHR»<232) 

30  CLS  !  PRINT  TAB(20>  “**«  MEMO  ••♦*  .*  PRINT 

40  PRINT’TESTS  OF  HYPOTHESES  &  CONFIDENCE  INTERVALS  FOR  DATA  ASSUMED!* 

30  PRINT  9234,*  (1)  Normal  (or  Central  Limit  Theorem  Applies) 

40  PRINT*  (2)  Exponential 

70  PRINT*  (3)  Bernoulli 

80  PRINT  t  PRINT-OTHER  OPTIONS!* 

90  PRINT  !  PRINT*  (4)  Input  Summary  Statistics 
100  PRINT*  <3)  Return  to  Program  Selection  Menu 
110  JP-694  !  KS-3  !  GOSUB  760 

120  IP  IO-2  AND  XB<»0  GOTO  150ELSE  IF  IO-3  AND  XB<0  OR  IO-3  AMD  XB>1  GOTO  130 
130  ON  10  GOSUB  1000,  4000, 4000,  300,  22000 
140  GOTO  10 
130  CLS 

140  IF  10-2  THEN  PRINT'EXPONENTIaL  PARAMETERS  MUST  BE  GREATER  THAN  ZERO*  :  PRINT  :  PRINTTHE 
SAMPLE  MEAN  -  *!XB!*AND  THEREFORE  DOES  NOT  CORRESPOND  TO  A*  !  PRINT-EXPONENTIAL  POPULATION 
“100TO  180 

170  PRINT-THE  SAMPLE  MEAN  FROM  A  BERNOULLI  POPULATION  MUST  BE  A  NUMBER  BETWEEN  0  8  1*1  PR 

nrr :  print*the  sample  mean  -  *;xb:*and  therefore  does  not  correspond  to  a*  :  print-bernoull 

I  POPULATION- 

180  PRINT  9*396, "PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU- 
190  IF  INKETeO*  *  GOTO  190 
200  GOTO  10 


INPUT  SUMMARY  STATISTICS 

300  REM  •«•  INPUT  SUMMARY  STATISTICS  ••• 

310  CLS  114-1 

300  PRINT  T AB(20)*INPUT  SUMMARY  STATISTICS- 

330  PRINT  9128,*  If  summary  statistics  are  entered  then  any  data  which  was  previously  entered  and  all  c«iv 
le  statistics  calculated  for  such  data  will  be  cleared,* 

340  PRINT  1  PRINT*  Do  you  wish  to  proceed?* 

330  T1«-*T*  !  T2S--N*  1  TP-448  1  GOSUB  710 
340  IF  IQ-*n*  OR  IQ-*N*  THEN  14-0  !  RETURN 
370  CLS  1  PRINT-CLEARING  DATA...* 

380  FOR  1-1  TO  200  !  Y(I)-0  !  X<I>«0  1  NEXT  !  IN-0  1  Vl-0  1  V-0  1  XB-0  !  CLS 
390  PRINT  TABC201* INPUT  SUMMARY  STATISTICS* 

400  PRINT  !  INPUT'Enter  Sample  Sizp-JIN  !  PRINT  9128,  BLI 

410  PRINT  9128,*ls  data  assumed  to  be  from  an  Exponential  Population  ?* 

420  T19-*T*  !  T2»-’N*  1 J P-254  1  GOSUB  710!  IF  ZQ-*n*  OR  ZQ-*N*  GOTO  500 

430  PRINT  9128.  BL*  !  PRINT  9! 28, 'Will  you  enter  the  MEAN  or  the  Exponential  Parameter  LAMBDAr 
440  T1*»*M*  1  T2*-*L*  !  GOSUB  710 

430  PRINT  9128.  HLt :  PRINT  BL*  1  PRINT  9128, 'Enter  *;:  IF  IQ-*m*  OR  ZQ-‘M*  PRINT  'Mean"!  ELSE  PRINT  *La 
mbda“, 

440  INPUT  XB  !  IF  XB<-0  THEN  PRINT  944,*»*e  ERROR  **•  EXPONENTIAL  PARAMETERS  MUST  BE  GREATER 

THAN  ZERO'JGOTO  430 

470  IF  IQ-*1*  OR  ZQ»*L*  THEN  XB-l/XB 

480  V1-XB*XB  !  V-Vl 


80 


490  RETURN 

900  PRINT  9128.  BL»  !  PRINT  9128, “Is  the  sample  iHumd  to  bo  from  *  Bernoulli  Population?* 

910  JP«256  !  T1«*“Y"  :  T2»»‘N“  !  GOSUB  710 
920  IF  Z0«“n“  OR  ZQa“N*  GOTO  560 

930  PRINT  9128,  BL*  !  PRINT  BL*  :  PRINT  9128, “Enter  the  number  of  occurrence!  out  of"!IN!*tnals“::iNPUT  XB 
940  IF  XB<0  OR  XBMN  GOTO  950ELSE  IF  XBOINTlXB)  GOTO  550 ELSE  XB-XB/IN  :  V1-XB«U-XB)  1  V»V1  :  RET 
URN 

990  PRINT  9128,  BL*  !  PRINT  964,  **••  ERROR  ***  ENTER  AN  INTEGER  FROM  0  TO  *!IN  !  GOTO  930 
960  PRINT  9123,  BLt  1  PRINT  BL*  1  PRINT  9128, 'Enter  Sample  Mean'UINPUT  XB 
970  PRINT  9236,'Do  you  want  to  enter  Sample  VARIANCE  or  STD.  DEVIATION?* 

980  JP-320  !  T1«»“V“  !  T2*«“D“  !  GOSUB  710 
990  PRINT  9256,  BL*  !  PRINT  BL* 

600  IF  IQ»*v*  OR  ZQ«“V*  PRINT  9256, “Enter  Sample  Varianee“;:iNPUT  VI  1  V«((IN-1)/IN>*V1  1  RETURN 
610  PRINT  9296, “Enter  Std.  Dev»ation“!iINFUT  VI  i  Vl»Vl*Vt  1  V-((IN-1)/IN1*VI  i  RETURN 


OPTION  SELECTION 

700  REM  •  •  *  OPTION  SELECTION  •  *  • 

710  PRINT  9JP*5,L*J*  “rri*i*  or  “!T2«i*  “:R*i*  “1L»;CHR*<176);R* 

7?.0  IQ-INKEY*  1  IF  ZQ«*“  GOTO  720 

730  PRINT  9JPM8,  ZQ  1  FOR  IJ-1  TO  100  i  NEXT 

740  IF  ZQOT1*  AND  ZQOCHR»(ASC(Tl*H32)  AND  ZQOT2*  AND  ZQOCHR*(ASC(T2*)*32>  THEM  GOTO  710 
790  RETURN 

760  PRINT  9JP*5, “NUMBER  OF  OPTION  DESIRED  “;L*;.HR*(176)iR» 

770  ZI-INKEY*  1  IF  ZI»“*  GOTO  770ELSE  lO-VAL(ZI) 

780  PRINT  QJP+31,  Zli  !  FOR  I«1  TO  100  1  NEXT 

790  IF  IO<l  OR  IO>KS  THEN  PRINT  9JP,  BL*  1  PRINT  9JP,***e  NOT  A  VALID  OPTION  FOR  1-1  TO  1000  1 
NEXT  1  PRINT  9JP,  BL*  :  GOTO  760 
800  RETURN 


HEMV  OF  TESTS  ESB.MQBM  AL.C  AT  A 

1000  REM  •••  MENU  OF  TESTS  FOR  DATA  FROM  NORMAL  DISTRIBUTION  * 

e  e 

1010  CLS  1  PRINT-DATA  ENTERED  IS  ASSUMED  TO  BE  NORMAL 
1020  PRINT  5  PRINTMENUi* 

1030  PRINT*  (1)  Test  Hypothesis  Concerning  the  Mean 
1040  PRINT  (2)  Test  Hypothesis  Concerning  the  Variance 
1050  PRINT*  <3)  Confidence  Interval  for  the  .Mean 
1060  PRINT"  (4)  Confidence  Interval  for  the  Variance 
1070  JP-640  !  XS-4  :  GOSUB  760 
1080  ON  10  GOSUB  1100,  2000,  3000,  3300 
1090  RETURN 


HYPOTHESES  CONCERNING  THE  MEAN 

1100  REM  *••  HYPOTHESES  CONCERNING  MEAN  ••* 

1110  CLS 

1 120  PRINT  964, “HYPO THESIS!  NULL  ALTERNATIVE*  I  PRINT 

1130  PRINT*  (1)  mu  ■  specified  value  mu  */■  specified  value 

1140  PRINT*  (2)  mu  <■  specified  value  mu  >  specified  value 

1190  PRINT  (3)  mu  >»  specified  value  mu  <  specified  value 

1160  JP-640  !  KS-3  GOSUB  760 

1170  CLS  S  PRINTIs  the  variance  known?* 

1180  JF-64  !  T1*«*Y*  !  T2*-*N*  1  GOSUB  710 
1190  IF  IQa*n“  OR  ZQ**N*  GOTO  1290 

1200  PRINT  “Do  you  want  ta  enter  VARIANCE  or  STD.  DEVIATION?* 

1210  JP-192  !  T1*«*V  !  T2*»*D*  !  GOSUB  7101  ZVaZQ 

1220  PRINTEnter  *!  i  IF  ZVa*V*  OR  ZVa*v*  PRINT  “VARIANCE*!  ELSE  PRINTSTD.  DEVIATION*! 
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1230  INPUT  AV 

1240  IF  ZV-’D*  OR  ZV«“d*  AV»AV*AV 

1290  CLS  :  IMFUT’Entar  the  valu*  that  tha  maan  ia  hypothasuad  to  ba’iMZ 
1260  IF  ZQ-’N*  OR  ZQ»*n*  GOTO  1400 ELSE  OR  10  GOSUB  1280,  1480,  1630 
1270  RETURN 


MOLL  HYPOTHESIS  1 

1280 REM  •••  MULL  HTP0T8ESIS  1  •«« 

1290  TZ-C  SQRUM)  •  <XB  -  MZ)  >/SQR(AV> 

1300  PRINT  i  PRINTTast  Statistic  -VIZ 

1310  MX«ABS<TZ>  i  VAR-1  S  MU«0  i  12-1  1  GOSUB  10000 

1320  PHINT“P-Val us  •  '!2*QOX 

1330  PRINTS  INPUT'Entar  Dasirad  Alpha  Laval'iAL 

1340  IF  ALCO  OR  ALM  THEN  PRINT  »*•  ERROR  ENTER  A  VALUE  BETWEEN  0  &  1'IGOTO  1330 
1390  PRINT  :  PRINT'For  Alpha  •*JAL{ 

1360  IF  ALC(2*QOX)  THEN  PRINT*  accapt**,  ELSE  PRINT  rajact"! 

1370  PRINT  tha  hypethasis  that  tha  trua  maan  »*;MZ 

1380  PRINT'-vs-  tha  altamativa  hypothasis  that  trua  maan  •/•‘OB 

1390  GOTO  1490 

1400  ON  10  GOSUB  14 .0.  1990,  1790!  RETURN 
1410  TZ-<  SQRCIN)  •  (XB  -  MZ)  )/SQR(Vl> 

1420  PRINT  t  PRINTTast  Statistic  -  *m 
1430  TX-ABSCTZ)  l  DF-IM-l  i  12>1  !  GOSUB  19000 
1440  GOTO  1320 

1490  PRINT  8960, "Pr ass  SPACE  BAR  whan  raspy  to  ratum  to  main  manu’i' 

1460  IF  IKKETS  O  *  *  GOTO  1460 
1470  RETURN 


HULL  HYPOTHESIS  2 

1480  REM  •••  HULL  HYPOTHESIS  2  ••• 

1490  TZ-  (SQRCIN)  a  (XB  -  MZ))/£QR(AV) 

1900  PRINT!  PRINTTast  Statistic  -*,TZ 

1910  NX-TZ  :  VAR-1  i  MU-0  1 12-1  i  GOSUB  10000 

1920  FRZNTP~Valua  -*IQOX 

1930  PRINT:iMPUT*Entar  dasirad  Alpha  Laval’iAL . 

1940  IP  ALCO  OR  AL01  THEN  PRINT***  ERROR  ***  ENTER  A  VALUE  BETWEEN  0  ft  l’tGOTO  1930 
1990  PRINT  STUNT’For  Alpha  -’SAL! 

1960  IF  AL  <  OQX  THEN  PHINTaccBpt'5  ELSE  PRINT Vajact*! 

1970  PRINT  tha  hypothasis  that  tha  trua  maan  <-*$MZ  :  PRINT  ’-vs-  tha  altamativa  hypothasis  that  tha  trua  ma 

mum 

1980  GOTO  1490 

1990  TZ*<  SQRCIN)  «  (XB-MZ)  )/SQRCVl) 

1600  PRINT  i  PRINTTast  Statistic  -*!TZ 
1610  TX-TZ  1  OF-ON-1) !  12-1  i  GOSUB  19000 
1620  GOTO  1920 


1VU.  BTPOTHESm 

1630 REM  ♦  NULL  HYPOTHESIS  3  ••• 

1640  TZ-CSQRdN)  *  (XB-MZ))/SQR(AV) 

1690  PRINT  I  PRINTTast  Statistic  -TTZ 

1660  NX-TZ  1  VAR-1  *.  MU-0  1 12-1  1  GOSUB  10000 

1670  FRINTP-Valu*  -*}FOX 

1680  PRINT  t  INPUT Entar  dasirad  Alpha  Laval'iAL 

1690  IF  ALCO  OR  AL>1  THEM  PRINT***  ERROR  **•  ENTER  A  VALUE  BETWEEN  0  6  I'tGOTO  1680 

1700  PRINT  I  PRINTFor  Alpha  -*?AU 

1710  IF  AL  <  FOX  THEM  PRINT accapt*!  ELSE  PRINT  "raMct'l 


* 


1720  PRINT*  th*  hypotnawt  that  tha  true  m«*n  >**;MZ 

1730  PRINT  *-va-  tha  altarnativa  hypothatit  that  true  mean  <*JMZ 

1740  GOTO  1430 

1730  TZ*<  SQR(IN)  *  (XB-M2)  )/SQR(Vl) 

1760  PRINT  !  PRINT*T#tt  Statlttic  »*;TZ 
1770  TX-TZ  !  DF-IN-1  1 12-1  !  GOSUB  13000 
1790  GOTO  1670 


HYPOTHESES  CONCERNING  THE  VARIANCE 

2000  REM  •  *»  HYPOTHESES  CONCERNING  VARIANCE  •  *• 
2010  CLS 

2020  PRINT  964, ‘HYPOTHESIS! 


NULL 


2030  PRINT* 
2040  PRINT* 
2050  PRINT* 
2060  PRINT- 
2070  PRINT* 
2080  PRINT* 
2090  31*896  : 


<11 

or 

(2) 

or 

(3) 

or 


ALTERNATIVE* 
Var  •/»  tpaafiad  valua 
Std.  Oav,  -dlto-*  i  PRINT 
Var  >  tpaafiad  valua 
Std.  Dav.  -dito-*  1  PRINT 
Var  <  tpaafiad  valua 
Std.  Dav.  -dito-*:  PRINT 


PRINT 


Var  >  tpaafiad  valua 
Std.  Dav.  -dito- 
Var  <■  tpaafiad  valua 
Std.  Dav.  -dito- 
Var  >■  tpaafiad  valua 
Std.  Dav.  -dito- 
:  KS-3  *.  GOSUB  760 
2100  CLS  I  PRINT'Do  you  want  to  antar  VARIANCE  or  STD.  DEVIATION?* 

2110  JP-64  :  T1*-“V*  !  T2*-*D*  !  GOSUB  7101  ZV-IQ 

2120  PRINT" Entar  tha  valua  tha  *j:  IP  ZV-*V*  OR  ZV-*v*  PRINT*VARIANCE*S  ELSE  PRINT*STD.  DEVIATION* 
2130  PRINT"  it  hypothatuad  to  Da*::  INPUT  AV 
2140  IF  ZV-*D*  OR  ZV»*d*  AV-AV*AV 
2130  PRINT  8192, “I*  tha  maan  known?* 

2160  JP-236  !  T1*-*Y"  1  T2t-“N*  i  GOSUB  710 
2170  IF  Z0-*n*  OR  ZQ-"N*  GOTO  2190 
2180  INFUT'Entar  Maan“,MZ 

2190  IF  ZO-*N*  OR  ZQ-*n*  OR  14-1  TZ««IM-l>  *  Vll/AV  !  GOTO  2210 

2200  Tl-0  :  FOR  I- 1  TO  IN  i  TZ-TZ  ♦  (Y(I)  -  MZ)£2  i  NEXT  I  i  TZ-TZ/AV 

2210  PRINT  :  PRINT  *Tait  Statistic  »*}TZ 

2220  IF  ZQ-*N*  DF-IN-1  ELSE  DF-IM 

2230  CX-TZ  i  12-1  i  GOSUB  12000 

2240  PRINT  *P-Valua  «*; 

2230  OH  10  GOSUB  2270,  2410,  2320 
2260  RETURN 


KUU.  HTMTHESIS  1 

2270  REM  •••  NULL  HYPOTHESIS  1  ♦  «  • 

2280  IF  2»FQX  <-l  PRINT  2»FOX  ELSE  PRINT  2#QOX 
2290  PRINT  :  INPUT'Entar  Dasirtd  Alpha  Laval*'AL 

2300  IF  AL<0  OR  AL>1  THEN  PRINT****  ERROR  *♦*  ENTER  A  VALUE  BETWEEN  0  &  l*!GOTO  2290 
2310  PRINT  1  PRINT*For  Alpha  -*}AL 
2320  IF  2*FOX  >  1  GOTO  2330 

2330  IF  AL  <  2»FQX  PRINT*  Accapfl  ELSE  PRINT'Rajacfi 
2340  GOTO  2360 

2330  IF  AL  <  2*GQX  PRINT* Accapt*}  ELSE  PRINT*  Raiact‘5 

2360  PRINT*  tha  hypothaat*  that  *}!  IF  ZV-*V*  OR  ZV-*v*  PRINT  ‘VARIANCE*}  ELSE  PRINT  *STD.  DEVIATION*! 
2370  PRINT  *  -*}3F  ZV-*V*  OR  ZV-*v*  PRINT  AV  ELSE  PRINT  AVt.5 

2380  PRINT*-vt-  tha  altarnativa  that  *}!  IF  ZV-*V*  OR  ZV-*v*  PRINT ‘VARIANCE":  ELSE  PRINT  *STD.  DEVIATIO 
N"! 

2390  PRINT*  «/-*}3F  ZV-*V*  OR  ZV— v*  PRINT  AV  fg  SB  PRINT  AVC.3 
2400  GOTO  1430 
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MULL  HYPOTHESIS  2 

2410  REM  *  •  •  NULL  HYPOTHESIS  2  ••• 

2420  PRINT  QOX 

2430  PRINT  !  INFUT"Enter  Deeired  Alph«  Level'iAL 

2440  IF  AL<0  OR  AL>1  THEN  PRINT"***  ERROR  •••  ENTER  A  VALUE  BETWEEN  0  &  l  "KIOTO  2430 
2430  PRINT  S  PRINT  “For  Alpna  »"!AL 
2 4 AO  IF  AL<QOX  PRINT  "Accept"!  ELSE  PRINT  "Reject"! 

2470  PRINT"  the  hypotheeie  thAt  the  *1!  IF  ZV«"V"  OR  ZV-*v"  PRINT"VARIAMCE"1  ELSE  FRINT*STD.  DEVIATION 
"1 

2480  PRINT"  <•*}!  IF  2V»"V*  OR  ZV»"v"  PRINT  AV  ELSE  PRINT  AVI  .5 

2490  PRINT*-ve-  tha  alternative  that  tha  "i!  IF  ZV-"V"  OR  ZV-*v"  PRINT“VARIANCE"!  ELSE  PRINT’STD.  DEVIA 
T10N"5 

2300  PRINT*  >"!!  IF  ZV-*V"  OR  ZV""v"  PRINT  AV  ELSE  PRINT  AVI  >3 
2310  GOTO  1430 


MULL  HYPOTHESIS  3 

2320  REM  •••  NULL  HYPOTHESIS  3  •»* 

2330  PRINT  FOX 

2340  PRINT  1  INPUT'Entar  Deeired  Alpha  Level*SAL 

2330  IF  AL<0  OR  AL>1  THEN  PRINT"***  ERROR  ♦**  ENTER  A  VALUE  BETWEEN  0  8  I'lGOTO  2340 

2360  PRINT  ;  PRINT"For  Alpha  *"iAL 

2370  IF  ALCFOX  PRINT  "Accept"!  ELSE  PRINT  "Rajact"! 

2380  PRINT"  tha  hypothecs  that  tha  *!1  IF  ZV-*V"  OR  ZV-"v"  PRZNT'VARIANCE"!  ELSE  PRIMT’STD.  DEVIATION 
"1 

2390  PRINT"  >«"}!  IF  ZV-"V"  OR  ZV-“v"  PRINT  AV  ELSE  PRINT  AVtJ 

2600  PRIMT"-va-  tha  alternative  that  tha  "!!  IF  ZV-"V"  OR  ZV-"v"  PRINT  "VARIANCE"!  ELSE  PRINT’STD.  DEVIA 
TIOM"! 

2610  PRINT  "  <"!S  IF  ZV-"V*  OR  ZV-"V  PRINT  AV  ELSE  PRINT  AV1.3 
2620  GOTO  1430 


CONFIDENCE  INTERVAL  FOR  THE  MEAN 

3000 REM  CONFIDENCE  INTERVAL  FOR  THE  MEAN  ••• 

3010  CLS 

3020  PRINT-Ia  Variance  Known?"  i  JP-64  !  Tl*""T"  !  T2*-‘N"  1  GOSUB  710 
3030  IF  ZQ-"M"  OR  ZO-"n"  GOTO  3190 

3040  PRINT  90,  BLS  1  PRINT  BLf  :  PRINT  90,'Do  you  w«it  to  enter  VARIANCE  or  STD.  DEVIATION?"  !  T1*»"V" 

I  T29""D"  !  JP-64  1  GOSUB  710!  ZV-ZQ 

3030  PRIHT*Entar  "!!  IF  ZV-"V*  OR  ZV»"v"  PRINT-VARIANCE"!  ELSE  PRINT  "STD.  DEVIATION"! 

3060  INPUT  AV 

3070  IF  ZV-"d"  OR  ZV-"D"  AV>AV*AV 

3080  PRINT  i  INPUT  "Enter  Deeired  Confidence  Laval  (e.g.  .93>*!AL  !  IF  AL>1  THEN  AL-AL/100 
3090  IF  AL<0  OR  AUt  THEN  PRINT"***  ERROR  ***  ENTER  A  VALUE  BETWEEN  0  &  1" KIOTO  3080 

3too  mo-o  :  vr-1  :  fr-u*al)/2  :  n»i ;  gosub  17000 

3110  CLS  I  PRINT  984,  AL*100!"\  CONFIDENCE  LIMITS" 

3120  PRINT  1  PRINT  "TWO  SIDED  CONFIDENCE  LIMITS!" 

3130  PRINT"  *!!PRINT  USING"#***e.*##“!XB-(XQ  •  SQR<AV/IN»«PRINT"  <  True  Mean  <"!!PRIKT  USING** 
••••.•••"!XB*<XQ  •  SOR(AV/IN» 

3140  PR-AL  I  GOSUB  17000 

3130  PRINT  1  PRINT"ONE  SIDED  CONFIDENCE  LIMITS!" 

3160  PRINT"  Upper  """PRINT  USING"*****.***"!XB  ♦  (XQ  ♦  SQRIAV/INl) 

3170  PRINT"  Lower  >";:PRINT  USING"  *****.***‘!XB  -  (XQ  •  SQR(AV/IN)> 

3180  GOTO  1430 

3190  PRINT  !  INPUT  "Enter  Deeired  Confidence  Level  (e.g.  .93)*!AL  :  IF  AO  1  THEN  AL-AL/100 
3200  IF  AL<0  OR  ADI  THEM  PRINT'***  ERROR  ***  ENTER  A  VALUE  BETWEEN  0  &  1  "KIOTO  3190 
3210  DF-ON-l) !  PR"tl*AL>/2  !  12"!  !  GOSUB  19000 
3220  CLS  I  PRINT  984,  AL»100!"%  CONFIDENCE  LIMITS" 

3230  PRINT  !  PRINT  "TWO  SIDED  CONFIDENCE  LIMITS:" 

3240  PRINT"  *!!FRINT  USING"***««,a***!XB-<XQ  •  SQR(V/ON-l)))!!PRIMT*  <  True  Kean  <"!!FRINT  USING" 
*#••*. e#*"5XB*(XQ  •  SQR(V/(IN-1)» 

3230  PR-AL  !  GOSUB  19000 


84 


3260  PRINT  !  PRINT-ONE  SIDED  CONFIDENCE  LIMITS!’ 

3270  PRINT"  Upper  --{SPRINT  USIMQ'tt*«*.**»-,XB  ♦  (XQ  *  SQR(V/(U-1)» 
3280  PRINT*  Lower  --{SPRINT  USING“eeee#.eee-{XB  -  (XQ  •  SQR(V/CU-t»> 
3290  GOTO  1450 


aBBKE  IMTSRVAL.fQR.IHE  2ABIAMCS 

REM  •••  CONFIDENCE  INTERVAL  FOR  VARIANCE  ••• 

CLS 

PRINT-I*  the  Mean  Known?-  1  JP-64  i  T1*-”T*  ;  T2*-*H*  S  GOSUB  7J0 
IF  IQ--N-  OR  IQ-*n-  GOTO  3540 
INPVT-Entor  Mean‘!XB 

INPUT"Enter  Deeired  Confidence  Level  (e,g.  .95)*SAL  I  IF  AL>1  THEN  AL-AL/100 

IF  AL<0  OR  AL>1  THEN  PRINT”***  ERROR  ***  ENTER  A  VALVE  BETWEEN  0  6  l’SGOTO  3350 

IF  14*1  W2-IN*V  i  GOTO  3390 

W2-0  !  FOR  1*1  TO  IN  i  W2-W2  ♦  <  T(I)  -  XB  )I2  !  NEXT  I 
CLS  I  PRINT  084,  AL*lOOi"%  CONFIDENCE  LIMITS* 

PRINT  0320, -TWO  SIDED  CONFIDENCE  LIMITS!" 

DF-IN  :  PR»(l*AL>/2  S  I2»l  i  GOSUB  18000 

PRINT0384,-  -{SPRINT  USING‘eeeee,*ee*;W2/XQi  J»RINT-  <  VARIANCE  <• 

PRINT0448,-  *;:PRINTUSING*##889.888-{(W2/XQ)IJi:PRINT-  <  STD.  DEVIATION  <* 

PR*(l-AL)/2  i  GOSUB  18000 

PRINT  0416,**::PRINT  USING-8«8*8.888*iW2/XQ| 

PRINT  0483,— .SPRINT  USING-888*8.#8#-,(W2/XQ>t .5 
PRINTSFRINT’ONE  SIDED  CONFIDENCE  LIMITS:- 
PRINT*  Variance  Std.  Dev.* 

PR-t-AL  i  GOSUB  18000 

print  -  Upper  >-;:PRnrr  us»G-eee#e.ee#-;W2/xa;s  print  asiNa-et#eeee«e##e.eee-;(W2/xc»[.3 

PR-AL  S  GOSUB  18000 

PRINT  •  Lower  --{SPRINT  USUG-*8880.88#-{W2/XQ{:  PRINT  usuG-88##*e#*#ee#.##8*i(W2/xa>t.3 
GOTO  1450 

PRINT  S  INPUT" Enter  desired  confidence  level  (e.g.  .95J-JAL  S  IF  AL>1  THEN  AL-AL/100 
IF  AL<0  OR  AL>1  THEN  PlUNT*»M  ERROR  Me  ENTER  A  VALUE  BETWEEN  0  &  1‘SGOTO  3540 
CLS  t  PRINT  Q84,  AL*100{*\  CONFIDENCE  LIMITS- 
PRUT  Q320, ‘TWO  SIDED  CONFIDENCE  LIMITS:* 

DF-(IN-l)  S  PR-U*AL)/2  1 12-1  S  GOSUB  18000 

PRINTG384,*  -{SPRINT  USUG-8e#*e.eee-,aNeV)/XQISPRINT-  C  VARIANCE  <• 

PRIMT0448,-  -{SPRINT  USUG-8##88.t*e-{(aNtV)/XQ>W{SPRUr  <  STD.  DEVIATION  <■{ 

FR-U-ALI/2  S  GOSUB  18000 

PRINT  0416, -{SPRINT  USUG-e#8ee.ee*"i(IM*V>/XQI 
print  0483, “ssprint  usuG-e#*e8.#ee-;<(u*v>/xQK  a 
PRINTSFRUT-ONE  SIDED  CONFIDENCE  LIMITS r* 

PRUT"  Variance  Std.  Dev.* 

PR-l-AL  t  GOSUB  18000 

prut-  Upper  --{SPRINT  usua-eeeee.eee";aN*V)/xa;sFRiMT  usuG-eeee*e*eeeee.e#e-;(aN*V)/x 

PR-AL  i  GOSUB  18000 

PRUT*  Lower  --{SPRINT  USUG-88808.8*0-{CUtWXQKFRUT  USUG"8be88**«*«e*.«***;((U*V)/X 
GOTO  1450 


r  OF  TESTS  FOR  EXPONENTIAL  DATA 

REM  •••  MENU  OF  TESTS  FOR  EXPONENTIAL  DATA  eee 
CLS  S  PRUT  -DATA  IS  ASSUMED  TO  BE  EXPONENTIAL 
PRUT  I  PRUT-MENUS* 

PRINT-  (1)  Test  Kypotheeie  Concerning  Mean  (or  l/tnean) 

PRUT*  (2)  Confidence  Interval  for  Mean  (or  l /mean) 

PRINT  S  PRUT-NOTES  both  of  the  above  options  allow  either  the  Mewi  or  the* 

PRINT*  exponential  parameter  Lambda  (1/mean)  to  be  weed  ae  the*  I  PRUT  *  argument 
TP-896  S  XS-2  1  GOSUB  760 
ON  10  GOSUB  4100,  5000 
RITURM 
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4100  REM  HYPOTHESES  CONCERNING  MEAN  •  •* 

4110  CLS  i  PRINT  TAB(26)*MENU  !* 

4120  PRINT  3128, “Do  you  want  to  us#  th*  Ktw  or  LamMa  0/m#an>  as  th#  argument?* 

4130  JP-192  !  T1S»*M*  1  T2*«*L*  i  GOSUB  7101  IA*IQ 

4140  IF  ZA*"1"  OR  ZA-“L*  THEN  A*-*lamtoda*  ELSE  AM‘m#an* 

4190  PRINT  0128,  CHR41299)  1  PRINT  CHR«(2S5) 

4140  PRINT  044, “HYPOTHESIS!* 

4170  PRINT  9128,*  NULL  ALTERNATIVE* 

4180  PRINT*!  1)  *5A45*  -  sp#aft#d  valu#*Sl  PRINT  TAB(3S)  A«l*  -/-  specified  valu#* 
4190  PRINT*  12)  *!A»i*  <•  specified  value*!!  PRINT  TAB(3S>  A*}*  >  specified  value* 
4200  PRINT*13)  *SA*1*  >•  specified  valuo‘!t  PRINT  TAB13S)  A4t*  <  specified  value* 
4210  JP*894  1  KS*3  i  GOSUB  740 

4220  CLS  1  PRINT  *Ent or  th#  hypothesized  v«lu#  of  *iA4iUNPUT  M2 
4230  IF  U>*1*  OR  IA*“L“  THEN  CX-2*IM*XB«MI  ELSE  CX»2*IM*XB/MI 
4240  OF»2«IN 

4290  PRINT  1  PRINT  *T#«t  Statistic  >*iCX 
4240  GOSUB  12000 
4270  ON  IO  GOSUB  4290,  4410,  4530 
4280  RETURN 


HULL  HYPOTHESIS  1 

4290  REM  •••  NULL  HYPOTHESIS  1 
4300  IF  2*FOX  <•  1  THEM  FV-2*FOX  ELSE  PV«2*QQX 
4310  PRUT*P-Value  -*!PV 

4320  PRINT  1  INPUT* Ent#f  D#sir#d  Alpha  L#v#l*JAL 

4330  IF  AL<0  OR  AL>1  THEN  PRINT***#  ERROR  •••  ENTER  A  VALUE  BETWEEN  0  &  1‘IGOT Q4320 

4340  PRINT  1  PRINT*For  Alpha  ■UAL 

4390  IF  AL<PV  PRINT* Accapt'l  ELSE  PRINT  'Reject*; 

4340  PRINT*  th#  hypothesis  that  th#  tru#  *iA»;*  -*;MI 

4370  PRUT*-vs-  th#  alternative  that  th#  tru#  *5A*I*  ■/•*{MZ 

4380  PRUT  Q940, 'PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU*; 

4390  IF  INKETS  O  "  GOTO  4390 
4400  RETURN 


BmayKTiffisai 

4410 REM  •••  NULL  HYPOTHESIS  2  *•• 

4420  PRUTP-Valu#  IF  U— 1*  OR  U-*L*  PRINT  FOX  ELSE  PRUT  QOX 

4430  PRUT  t  INPUT*  Enter  Desired  Alpha  Level’IAL 

4440  IF  AL<0  OR  AL>1  THEM  PRUT****  ERROR  **#  ENTER  A  VALUE  BETWEEN  0  i  1’IGOTO  4430 

4490  PRINT*  For  Alpha  »*JAL 

4440  IF  U**l*  OR  IA**L*  GOTO  4490 

4470  IF  AL<QOX  PRUT  'Accept*!  ELSE  PRUT  'Reject*! 

4480  GOTO  4900 

4490  IF  AL<FOX  PRUT  "Acapt*!  ELSE  f- YU T  'Reject*! 

4900  PRUT  *  th#  hypothnis  that  th#  tru#  "A*!*  <»“!M2 
4910  PRUT  *-vs-  th#  altamatlv#  that  th#  tru#  *!A»!*  >*3« 

4320  GOTO  4380 


HffU.  BYTOTHfiaa  3 

4930  REM  •••  NULL  HYPOTHESIS  3  ••• 

4940  PRINT* P-Valu#  ■*!!  IF  2A«*1*  OR  IA«*L*  PRUT  QOX  ELSE  PRUT  FOX 
4990  PRINT  i  INPUT* Enter  Desired  Alpha  L#v#l*!A L 

4940  IF  ALCOOR  ALM  THEM  PRUT'***  ERROR  ♦**  ENTER  A  VALUE  BETWEEN  0  6  1UGOTO  4990 
4970  PRINT  ’For  Alpha  «“!AL 


4380  IF  IA-*1"  OR  IA«“L*  GOTO  4410 

4390  IF  ALCFOX  FRUIT  *  Acc»pf;  ELSE  PRINT  "Rajact*: 

4600  GOTO  4620 

4610  IF  AL<OOX  PRINT  -’Adapt*;  ELSE  PRINT  "R*)#ct"; 

4620  PRINT  *  the  nypothaa  that  the  true  "iAS;*  >-*!MZ 
4630  PRINT  *  -v»-  tha  altarnativa  that  tha  tru#  *;a*I*  <"iMZ 
4640  GOTO  4380 


3000  REM  •  •*  CONFIDENCE  LEVEL  FOR  EXPONENTIAL  MEAN  **♦ 
3010  CLS  1  PRUTTCONFIDENCE  INTERVAL  FOR  EXPONENTIAL  KEAN* 

3020  PRINT  i  INPUT"  Enttr  Daairad  Confidanea  Laval  ( a.g.  .93  )"5AL  !  IF  AU1  THEN  AL-AL/100 
3030  IF  AL<0  OR  AL>1  THEN  PRINT****  ERROR  •«•  ENTER  A  VALUE  BETWEEN  0  &  l"5GOTO  3020 
3040  PR-U'ALl/2  !  DF«2*IN  i  12-1  !  GOSUB  18000 
3030  L-XQ/<2*IN*XB) 

3060  PR-U*AL)/2  !  GOSUB  18000 
3070  U-XQ/(2*IN*XB) 

3080  CLS  :  PRINT  834,  AL*100}*%  CONFIDENCE  LIMITS" 

3090  PRINT  1  PRINT'TWO  SIDED  CONFIDENCE  LIMITS!* 

3100  PRINT  USINa*#####*.***";i/U;:PRINT"  <  Tru#  Maan  <*!JPRINT  USING*####a#.*#6"il/L 
3110  PRINT  usiNO*aaaaa*.aa#":L;:PRiNT*<  Lambda  <";:print  usiNG"####a*.#aa*;u 
3120  PRINT  :  PRINT-ONE  SIDED  CONFIDENCE  LIMITS:* 

3130  PR-AL  t  GOSUB  18000!  U-XQ/(2*IN*XB) 

3140  PR-l-AL  :  GOSUB  180001  L-XQ/(2*IN*XB1 
3130  PRINT  "MEAN*.  Uppar  -*J1/L 
3160  PRINT  *  Lowar  -*!1/U 

3170  print  "Lambda:  uppar-*:u 
3180  PRINT  ‘  Lowar  -*0. 

3190  GOTO  4380 


■'-<  ii  ^i,i  1*1  {•!■,*  a  i-rw 


6000 REM  •••  MENU  OF  TESTS  FOR  OATA  ASSUMED  TO  BE  BERNOULLI 
6010  CLS  :  PRINT-DATA  IS  ASSUMED  TO  BE  BERNOULLI 
6020  PRINT :  print-menu:* 

6030  PRINT"  (1)  Taat  Hypothaaia  Con  earning  proportion  <P) 

6040  PRINT"  (2)  Confidanea  Intarval  for  P 
6090  TP-448  1  ES-2  I  GOSUB  760 
6060  ON  IO  GOSUB  6100,  7000 
6070  RETURN 


*  «  «**  f : » »•)  (•)  v 


6100 REM  •**  HYPOTHESES  CONCERNING  PROPORTION  *•# 

6110  CLS  1  PRINT  864, "HYPOTHESIS!  NULL  ALTERNATIVE*  :  PRINT 

6120  PRINT*  (11  P  ■  apadfiad  valua  P  ■/■  apadfiad  vaU m 

6130  PRINT*  (2)  P  <>  apadfiad  valua  P  >  apadfiad  valua 

6140  PRINT"  (3)  P>-  apadfiad  valua  P  <  apadfiad  valua 

6130  TP-640  t  XS-3  !  GOSUB  760 

6160  CLS  1  INPUT"  Entav  Hypothaaizad  Valua  of  P*!PB 

6170  IP  PB<0  OR  PB>1  THEN  PRINT****  ERROR  ♦•*  P  MUST  BE  A  VALUE  BETWEEN  0  AND  1"  !  FOR  1-1  TO 
2000  1  NEXT  t  GOTO  6160 

6180  IF  IN  >-  20  THEN  YS-ON  •  XB  -  IN  •  PBl  /  SQRGN  •  PB  a  (1-PBM  ELSE  TS-IN  •  XB 

6190  PRINT  1  PRINTTaat  Statiatic  »"!TS!  I  IF  IN  <  20  PRINT*  (Uaing  Binomial  CDF)"  ELSE  PRINT’  (Uaing  N 
ormal  CDF)" 

6200  ON  10  GOSUB  6220,  6410,  6330 
6210  RETURN 


MULL  HYPOTHESIS  1 


*220  REM  •  *•  MULL  HYPOTHESIS  1  •  •• 

*230  IP  IN  >-  20  GOTO  *300 

*240  M-IN  S  12*1  S  K-YS  i  GOSUB  11000 

*250  PV-2*PR 

*2*0  IF  PV  <  1  GOTO  *290 

*270  K-YS-1  i  GOSUB  12000 

*280  PV-2»<1-PR> 

*290  GOTO  *320 

*300  MU-0  i  VAR-1  i  NX-ABS(YS)  1 12-1  j  GOSUB  10000 
*310  PV-2M20X 

*320  PRINT  !  PRINT“P-Value  -*;pv 

*330  PRINT  !  INPUT"  Enter  Desireo  Alpha  Level'JAL 

*340  IF  AL<0  OR  AL>1  THEN  PRINT"***  ERROR  ••*  ENTER  A  VALUE  BETWEEN  0  &  1*  i  GOTO  *330 
*350  IF  AL  <  PV  PRINT  "Accept"!  ELSE  PRINT  "Reject"; 

*3*0  PRINT"  the  hypothesis  that  the  true  value  of  P  «*!PB 

*370  PRINT*-vs-  the  alternative  that  the  true  value  of  P  ■/•'iFB 

*380  PRINT  i  PRINT"***  PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU* 

*390  IF  INKEY*  O  •  •  GOTO  *390 
*400  RETURN 


OTU  HYPOTHESIS  2 

*410  REM  *••  MULL  HYPOTHESIS  2  ••• 

*420  IF  IN  >-  20  GOTO  *4*0 

*430  M-IN  1  K-YS-I  !  12-1  !  GOSUB  11000 

*440  PV-l-PR 

*450  GOTO  *480 

*4*0  MU-0  !  VAR-1  !  MX-YS  !  12-1  S  GOSUB  10000 
*470  PV-OOX 

*480  PRINT  S  PRIMT-P- Value  -*!PV 

*490  PRINT  1  IMPUT'Enter  Desired  Alpha  Level'UL 

*500  IF  ALCO  OR  AL>1  THEN  PRINT"***  ERROR  ***  ENTER  A  VALUE  BETWEEN  0  8  1"!OOTO  *490 
*510  IF  AL  <  PV  PRINT  "Accept"!  ELSE  PRINT  "Reject"! 

*520  PRINT*  the  hypothesis  that  the  tme  value  of  P  0"!FH 
*530  PRIMT--V1-  the  alternative  that  the  true  value  of  P  >"!PB 
*540  GOTO  *380 


1SU>JSZEQZBBZSL2 

*550 REM  •••  NULL  HYPOTHESIS  3 

*5*0  IF  IN  >-  20  GOTO  **00 

*570  M-IN  I  K-YS  !  12-1  !  GOSUB  11000 

*580  PV-PR 

*590  GOTO  **20 

**00  MU-0  1  VAR-1  !  NX-YS  !  12-1  !  GOSUB  10000 
**10  PV-FOX 

**20  PRINT  !  PRINT" P-Value  -*!PV 

**30  PRINT  1  INPUT" Enter  Desired  Alpha  Level'iAL 

**40  IF  ALCO  OR  AL>1  THEN  PRINT"***  ERROR  •«*  ENTER  A  VALUE  BETWEEN  0  6  1"  1  GOTO  **30 
**50  IF  AL  C  PV  PRINT  "Accept*;  ELSE  PRINT  "Reject"! 

4AA0  PRINT"  The  hypothesis  that  the  true  value  of  P  >-*!PB 
**70  PRINT" -vs-  the  alternative  that  the  true  value  of  P  <"!FB 
**80  GOTO  *380 
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CONFIDENCE  INTERVAL  FOR  PROPORTION 

7000  REM  *#e  COKF1DEKCE  INTERVAL  FOR  PROPORTION  **e 
7010  CLS 

7020  INPUT*Enter  the  dMtrtO  confidence  level  1*4.  .99>"!AL  S  IF  AL>1  AL-AL/100 

7030  IF  AL<0  OR  ADI  THEN  PRINT"***  ERROR  •••  ENTER  A  VALUE  BETWEEN  0  &  l'SQOTO  7020 

7040  PR-41  *AL)/2 

7080  ON>2*IN  -  2*IN*X8  ♦  2  i  DD»2*IN*XB  !  12-1  !  OOSUB  20000 
7040  CLS  S  PRINT  984,  AL*t001"%  CONFIDENCE  LIMITS" 

7070  PRINT  i  PR1NT"TW0  SIDED  CONFIDENCE  LIMITS!" 

7060  L-4IN  •  XBI  /  «IN*XB>  ♦  (IN  -  IN*XB  ♦  1)  •  XQ) 

7090  PRINT"  "!L!"<  Tow  Value  of  P<"! 

7100  DM»2*lNeXB  *  2  !  DD»2»IN  -  2*IN*XB  i  OOSUB  20000 
7110  U-UIN  •  XB  *1)  •  XQ)  /  HIM  -  IM*XB>  ♦  ON  *  XB  ♦  1)  *  XQ) 

7120  PRINT  U 

7130  PRINT  !  PRINT-ONE  SIDED  CONFIDENCE  LIMITS!" 

7140  PR-AL  !  OOSUB  20000 

7190  PRINT"  Upper  -‘NON  *  XB  ♦  1)  •  XQ)  /  ((IN  -  IN*XB>  *  ON*XB  ♦  l)  •  XQ) 

7140  DN*2*IN  -  2*IN*X8  !  DD-2*IN*XB  !  OOSUB  20000 

7170  PRINT"  Lower  -"SON  »  XB)  /  (IN  •  XB  ♦  (IN  -  M*X8  ♦  1)  *  XQ) 

7160  GOTO  4380 


HflBMAL  PiaTBIBgHOH 

10000 REM  ••*  NORMAL  DISTRIBUTION  ••• 

10010  SD-SQR4VAR) 

10020  XN-<NX-MU)/SD:AX«ABS(XN> 

10030  XZ-,3989423eEXP«-AX*AX)/2} 

10040  NT-l/(l+.23lA4t9eAX) 

10050  QOX-XZe«.3i93813eMT>-<.3S4363a#MTl2>*<1.781478eMTC3>-(1.82l2S6*NTt4)*U.330274*MTt3)) 
10040  IF  XNCO  GOTO  10090  . 

10070  FOX-lrQOX 
10080  RETURN 
10090  FOX-QOX 
10100  QOX-l-FOX 
10110  RETURN 


BINOMIAL  DISTRimTTTOlt 

11000 REM  BINOMIAL  DISTRIBUTION  tee 

11010  PR-0 

11020  IP  K<0  GOTO  11080 

11030  IFK>N  THEN  PR-1  !  GOTO  11080 

11040  FOR  BB-0  TO  C 

11080  TB-N  !  OOSUB  1 1090 

11040  PR-PR*  BC  *  PBCBB  e  (l-PB)t(N-BB) 

11070  NEXT  BB 
11080  RETURN 

11090  BC-0  !  B-0  !  BT-0  1  SB-BB  1 QB-TB-BB 

11100  PORBI-1  TO  TB 

11110  IF  SH3-QB  GOTO  11170 

11120  IF  SB  >-  B1  THEN  B-B  *  LOGffll) 

11130  IF  QB  )  BI  GOTO  11210 

11140  IF  QB  «  BI  THEN  BC— B  !  GOTO  11210 

11190  BC-BC  ♦  LOOffll) 

11140  GOTO  11210 

11170  IP  QB  >•  BI  THEN  B-B  ♦  LOOffll) 

11180  IP  SB  >BI  THEN  GOTO  11210 
11190  IP  SB- BI  THEN  BC— B  1  GOTO  11210 
11200  BC-BC  *  LOOffll) 
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11210  NEXT  B! 
11220  BOEXKBC) 
11230  RETURN 


CHI-SQUARE  DISTRIBUTION 

12000  REM  •••  CHI-SQUARE  DISTRIBUTION  ••• 
12010  IF  DIO  30  GOTO  12220 
12020  DP-1 

12030  FOR  I-INT1DF)  TO  2  STEP  -2 
12040  DP-DP+I 
12060  NEXT  1 

12060  N^C  X  C  GMTKOF+  1 J/2IWEXP1-C  X/2I/DP 
12070  IF  INT(DF/2»DF/2  GOTO  12100 
12080  FC-SQRI2/C  X/3. 1 4 1393) 

12090  GOTO  12110 

12100  FC-t 

12110  LC-1 

12120  MOI 

12130  D-DF 

12140  D-O+2 

12190  MC-MC+CX/D 

12160  IF  MC<<000001  GOTO  12190 

12170  LC-LC+MC 

12100  GOTO  12140 

12190  FOX-FC+NP+LC 

12200  GOX-t-FOX 

12210  RETURN 

12220  NX-((CX/DF)lU/3>  -  (l-42/(9+OF»»/SQR(2/(9*OF)) 

12230  MU-0  1  VAR-1  1 12-1 
12240  GOSUB  10000 
12290  RETURN 


t  -  DISTRIBUTION 

19000 REM  •••  ^DISTRIBUTION  ••• 

19010  IF  TX<0 13-1  ELSE  13-0 

19020  IF  DF>29  GOTO  19490 

19030  THET  A-ATN(ABS<TX)/SQR<DF» 

19040  IF  DFOl  GOTO  19090 
19090  AT-«6366190»THETA 
19060  FOX-UT+D/2 
19070  QOX-1 -FOX 
19000  GOTO  19400 

19090  IF  INT(DF/2)-OF/2  GOTO  19220 

19100  IF  DF-3  GOTO  19370 

19110  TS-0  1  TP- 1  I  TC -COS (THETA) 

19120  FOR  1*1  TO  INTKOF-31/2) 

19130  TP-TP*2*I/<1+2*I) 

19140  TC-TC*<COS(THETA>(2) 

19190  TS-TS+(TP*TC> 

19160  NEXT  I 

19170  TS-TS+COSfTHET  A ) 

19100  AT->636619S+<THETA+<SIN(THETA)*T8» 

19190  FOX-4AT+11/2 
19200  QOX-1'FOX 
19210  GOTO  19400 
19220  IF  0FO2  GOTO  19270 
19230  AT-SINITRETA) 

19240  FOXxAT+O/2 
19290  QOX-l'FOX 
19260  OOTO  19400 
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13270  TS»Oi  TP- 1  !TC»1 
15280  FOR  I-l  TO  INT«DF-2)/2> 

15290  TP-TP««2»I>-l>/<2»I) 

15300  TC-TCMCOS<THETA)C2) 

15310  TS-TS*<TP*TC> 

15320  NEXT  I 

15330  AT-S1N<THETA)«<1*TS> 

15340  F0X«<AT*l)/2 
15350  OOX-t-FOX 
15360  GOTO  15400 

15370  AT->6366198*<THETA+<SIN<THETA)4C0S(THETAM) 

15380  FOXXAT+11/2 

15390  QOX-I-FOX 

15400  PX-TX 

15410  IF  13-0  RETURN 

15420  QOX-FOX 

15430  FOX-l-QOX 

15440  RETURN 

15450  NX-<  TX  *  <1  -  .25/DF)  )/S<JR<l  ♦  .5*TXC2/OF) 
15460  MU-0  1  VAR-1  1 12-1  1  GOSUB  10000 
15470  PX-TX 
15400  RETURN 


F  -  DISTRIBUTION 

16000  REM  »M  F-DI3TRIBUTION  *** 

16010  IF  FX-0  THEN  FOX-O  1  QOX-1  i  RETURN 

16020  IF  DM540  AND  DD540  GOTO  16610 

16030  Kl-DN  1 12” DD 

16040  A-DM*FX/<DN*FX*OD)  i.Al-l-A 

16050  IP  AK1E-37  THEN  A1-1E-37 

16060  01-DN*<5  !  D2-DD<  .3  i  D3-D1+D2-1 

16070  R-0  1  Sl-0  :  S2-0  :  OL-l  S  C-.2S 

16080  XM-1  :  XX-1  I  PI-3.141393  S  KM-DD  . 

16090  EM-INT<D2>*2 

16100  IF  KMOKN  GOTO  16280 

16110  KM-D2-1 

16120  IF  KM-0  GOTO  16210 

16130  FOR  1-1  TO  XX 

16140  81-DL*S1»R 

16130  D2-D2-1 

16160  D>D3-1 

16170  TEM-A1/D2 

16180  R-D3»TEM 

16190  32XR+TEMHS2 

16200  NEXT  I 

16210  Sl*DL*St*R 

16220  CL-0 

16230  T— l 

16240  D3—1 

16230  S2-A482 

16260  C«J 

16270  GOTO  16460 

16280  EN-IMT(D2> 

16290  IF  KN-0  GOTO  16380 
16300  FOR  1-1  TO  KM 
16310  Sl-DL+SloR 
16320  02-02-1 
16330  03-03-1 
16340  TEM-A1/D2 
16350  R-03»TEM 
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1*360  S2-(R*TEM>*S2 
16370  NEXT  I 
16380  Sl-XXtSl 
16390  S2-XK*S2 
16400  ART«SQR(Al> 

16410  XM-XM*ART 
16420  T-(XM-ART)/Al 
16430  D3 —A 
16440  XX-2/PI 
16490  C-C*2 

16460  IP  0.873  GOTO  16990 

16470  02-01 

16480  03-02*03 

16490  S2-S1 

16900  Sl-0 

16910  Al-A 

16320  IP  A1C1E-37  TEEN  61-1E-37 
16930  KN-OM 
16940  GOTO  16090 

16390  IF  C<1.129  THEM  DL-4/FI  •  ATNCD 

16360  POX-XM*(S2-Sl)-OL 

16970  IP  FOX<0  THEM  FOX-O 

16980  IF  FOX>l  THEM  FOX-t 

16990  QOX-l-FOX 

16600  RETURN 

16610  MX-<((FX((l/3»t<l-<2/(9«DD)l)Ml-<2/(94>0KJM)/SGR((2/(9«DM))+<FXt(2/3)>*2/(9«DDU 
16620  MO-O  S  TAR-1 
16630  GOSUB  10000 
16640  RETURN 


INVERSE  NORMAL 

17000  REM  •••  INVERSE  NORMAL  DISTRIBUTION  ••• 

17010  IF  PR>3  THEM  RL-SQR(LOG(l/((l-FR)C2)»  ELSE  RL-SQR(LOG(  1/0>RI2>H 

17020  XQ-RL-«aJ13317*<^02833*RL)*(.010328«RLt2»/a*(1.432788»RLH(.l89269*RU2WJ)Ol308*RU3»* 
17030  IF  FR>-«9  THEM  XQ-MCWSORIVR3-XQ)  ELSE  XQ-MO-<SQR<VRHXQ> 

17040  RETURN 


INVERSE  CHI-SQUARE 

18000  REM  •••  INVERSE  CHI-SQUARE  DISTRIBUTION  *«# 
18010  MO-O  t  VR-1  1 12-1  t  FZ-PR 
18020  IF  0F>1  GOTO  18070 
18030  PR-.3-U-PI) 

18040  GOSUB  17000 
18090  XQ-XQ12  i  PR- PI 
18060  RETURN 
18070  IF  OF>2  GOTO  18100 
18080  XQ— 2»LOG<l-Pl) 

18090  RETURN 
18100  GOSUB  17000 
18110  DQ-XQ 

18120  IF  DF>42*IXT(4*ABS<DQ)»  GOTO  18220 

18130  X 9- 1.0000886  -  .2237368/DF  -  .01913904/DFI2 

18140  X9-X9XDFI-J  *  DO  *  (.4713941  *  .02607083/DF  -  .008986007/DFt  2)1 

18190  X9-X9  *  (1/OF  •  DQC2  *  (.000 13 430 28  *  .01128186/DP  *  .02277679 /DFC21) 

18160  X9-X9  *  (DPC-t<3  •  DQC3  •  (-.008993069  -  .01 193761/OF  -  41323293/DFC2H 
18170  X9-X9  *  (DFt-2  •  00(4  •  1/30312998  ♦  .003169634/DF  -  ,006930336/DF(2» 
18180  X9-X9  *  (DFt-2.5  •  DQC9  *  (-.0008426812  *  40233001/DF  *  /XU060438/DFC2)) 
18190  X9-X9  *  iOFt-3  •  0QC6  •  <40009780499  -  401490117/DF  *  .001963326/DF(2)I 
18200  XQ-DF*X9(3 
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18210  RETURN 

18220  X9*l  -  2/(9*DF)  ♦  <4*00(4  ♦  16*DQ(2  -28)/<1213*DFC2> 

18230  X9-X9  ♦  (8»DQC6  ♦  720»DQC4  ♦  3126*DQC2  ♦  2904>/<229633*DF(3) 

18240  X8-0Q/3  ♦  (-DO(3  ♦  3*DO)/<162*DF> 

18290  X8-X8  -  (3»DQC5  ♦  40*00(3  ♦  4S*DQ>/<3832*DF(2> 

18260  XS-X8  *  (301*00(7  -  1317*00(3  '32769*00(3  -  79349*DG)/(7873200*DF(3> 
18270  X8-  SOR(2/DF)  •  X8 
18280  XQ-DF  •  «X8*X9>(3> 

18290  RETURN 
18300  CX-XQ 
18310  D£LTA*.01 
18320  OOSUB  12000 

18330  IF  ABS1FR-FOXK  .00001  THEN  XQ-CX  !  RETURN 

18340  IF  PR  <  FOX  THEN  CX-CX-OELTA 

18390  IF  PR  <  FOX  THEN  DELTA-DELTA/ 10 

18360  IF  PR  <  FOX  GOTO  18320 

18370  CX*CX*DELTA 

18380  GOTO  16320 


INVERSE  -  t 

19000  REM  •••  INVERSE  t-DISTRIBUTION  ••• 

19010  MO-O  :  VR-1  !  12*1 
19020  GQSUB  17000 
19030  XC*XQ 

19040  XO-(.23  •  (XCC3  *  XC»/DF 

19090  XQ-XO  *  ((1/96)  •  (S*XCIS  *  16*XC(3  *  3*XC))/OF(2 

19060  XQ-XQ  *  ((1/384)  •  (3*XC(7  *  19*XC(3  *  17*XC(3  -19*XC))/DFC3 

19070  XQ-XO  *  ((1/92160)  *  (79*XC(9  *  776*XCC7  *  1482«XCC3  -1920*XC(3  -94S*XC»/DF(4 

19080  XQ-  XC  ♦  XQ 

19090  IF  DF>3  RETURN 

19100  DELTA*  1 

19110  TX-XQ 

19120  OOSUB  19000 

19130  IF  ABS(PR-FOX)  <  .00001  THEN  XQ-TX  t  RETURN 

19140  IF  PR  C  FOX  THEM  TX-TX-DELTA 

19190  IF  PR  <  FOX  THEN  DELTA-DELTA/ 10 

19160  IF  PR  <  FOX  THEN  GOTO  19120 

19170  TX-TX+DELTA 

19180  GOTO  19120 


MYHBB-r 

20000  REM  •••  INVERSE  F  -  D  I  S  T  R I B  U  T I  0  N  **• 

20010  IF  DM  <  20  OR  DO  <  20  GOTO  20090 
20020  MO-O  I  VR*1  1 12-1 
20030  OOSUB  17000 

20040  H  -  2  *  ( (l/(DD-t)  ♦  1/fflN-lMI-l  ) 

20090  LM  •  (XQ(2  -  3)/6 

20060  HXXXQ  •  SQR1H  *  LM»/H  -  ( (l/(DN-t)  -  l/(DD-l) )  •  (  LM  *  9/6  -  2/(3*H) )) 
20070  XQ  «  EXPa*HX) 

20080  RETURN 

20090  IF  DNOl  AMD  ODOl  OR  DN*1  AMD  DD-1  GOTO  20190 
20100  PH-PR  1  IF  DN-1  THEN  FRXt*PR>/2  ELSE  PR-l-PR/2 
20110  IF  ON- 1  THEM  OF-DO  ELSE  DF-DN 
20120  OOSUB  19000 

20130  XO-XO*XQ  1  IF  DD-1  THEN  XQ-l/XQ 
20140  PR-PH 

20190  IF  PR3-.99  THEN  X0-.994«XQ  i  GOTO  20180 

20160  IF  PR>*.979  AMD  OM33  THEN  XQ-.995*XQ  }  GOTO  20180 
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20170  IF  PR>.95  AND  DN>3  THEN  XQ-.996«X0 
20180  RETURN 

20190  IF  PR>.999  AND  DD-i  THEN  XQ-9E-36  i  RETURN 
20200  IF  PK>.997  AND  DD-1  THEN  DELTA-500000  1  GOTO  20270 
20210  IF  PR>  .995  AND  DD-1  THEN  DELTA- 13000  :  GOTO  20270 
20220  IF  PRO. 99  AND  DD-1  THEN  DELTA-5000  I  GOTO  20270 

20230  IF  PRO  .973  AND  DD-1  OR  PRO  .999  AND  DD-2  THEN  DELTA- 1000  !  GOTO  20270 

20240  IF  PRO .9  AND  DD-1  OR  PR0.99  AND  DD<«2  OR  PRO-. 999  AND  DDC-3  THEN  DELTA  -100  1  GOTO  20270 

20230  IF  PR0-.99  AND  DD<-3  THEN  DELTA-30  !  GOTO  20270 

20260  IF  PRO -.973  AND  DDC-2  THEN  DELTA-30  ELSE  DELTA-10 

20270  LL-0 

20280  FX-DEL^A 

20290  GOSUB  16000 

20300  IF  ABS1PR-FOXK-.00001  THEN  XQ-FX  1  RETURN 

20310  IF  PRCFOX  THEN  DELTA-DELTA/2  1  FX-DELTA  1  GOTO  20290 

20320  LL-FX  1  FX-FX-DELTA  1  UL-FX  1  GOSUB  16000 

20330  IF  ABS<PR-FQX)<*  .00001  THEN  XQ-FX  1  RETURN 

20340  DELTA*(UL-LL)/2 

20330  FX*LL»DELTA 

20360  GOSUB  16000 

20370  IF  ABS1PR-FOXK*. 00001  THEN  XO-FX  1  RETURN 
20380  IF  PR3FOX  THEN  LL-FX  ELSE  UL-FX 
20390  GOTO  20340 


22000  REM  •••  PROGRAM  SELECTION  MENU  •  •• 

22010  CLS 

22020  PRINT  TAB(20)*PROGRAM  SELECTION  MENU* 

22030  PRINT  0128, *81  Data  I/O,  Transformations,  Prob.  &  Inv.  Prob.  Distributions" :PRI NT 
22040  PRINT* *2  Sample  Stat's,  7-Num-Sum,  Plots'IPRINT 

22030  PRINT* #3  Parametric  Tests  of  Hypotheses  and  Confidence  Intervals'lPRINT 
22060  PRINT* 84  Robust  Estimates  and  Confidence  Intervals'lPRINT 
22070  PRINT" 83  Multiple  Linear  Reqression'iFRINT 
22080  PRINT*  86  Analysis  of  Variance* 

22090  J P-896  1  XS-6  1  GOSUB  760 

22100  IF  10-3  GOTO  10 

22110  IF  10-4  THEN  ZT»*2*lGOTO  22130 

22120  IF  IO-1  OR  10-2  THEN  ZT-*1*  ELSE  IT-*3* 

22130  IF  IQ-l  OR  10-3  THEN  IO-l  ELSE  10-2 
22140  CLS 

22130  PRINT-INSERT  TAPE  O'TZTl*  INTO  ESF-80  AND  PRESS  SPACE  BAR* 

22160  IF  INKETSO*  •  GOTO  22160 
22170  OLOAD  10 


PRflgRAM  ** 


MENU 

10  L8«»CHRS<123>  i  RB*»CHR*(123)  :  8LS*CHRSC50) 

20  REM  •••MAIN  M  E  N  U  ••• 

30  IF  I4»l  GOTO  130 

40  CLS  1  PRINT  TAB120)  *♦«•  MENU  ••«"  5  PRINT 

30  PRINT“(1)  RoCu»t-t  Confidence  Interval*  for  the  Population  Mean"  !  PRINT 

60  PRIMT*(2>  Confidence  Interval  for  the  Median"  1  PRINT 

70  PRINT" (3)  Jackknife  (Point  Estimate*  l  Confidence  Intervals)"  !  PRINT 

80  PRINT"(4>  Return  to  Program  Selection  Menu 

90  1CP-768  1  KS*4 

100  GOSUB  180 

no  ON  IO  GOSUB  300,  2000,  3000,  10000 
120  GOTO  20 
130  CLS 

140  PRINT“None  of  the  subroutines  in  Program  44  are  applicable  since  only  sample  statistics  were  entered.  Pre 
ss  the  SPACE  BAR  to  access  the  program  selection  menu, 

130  IF  INKEYtO*  *  GOTO  130 
160  CLS 

170  GOTO  10000 

180  PRINT  9KP»3,'OPTION  DESIRED  *1LBs;CHRS(176);RB»! 

190  ZI-INKETS  1  IF  ZI«""  GOTd  190ELSE  IO-VALIZI) 

200  PRINT  QKF*2l,ZI  1  FOR  I-t  TO  100  !  NEXT 

210  IF  I0<1  OR  IO>KS  THEN  PRINT  9KP,  BL*  1  PRINT  9KP,*»**  NOT  A  VALID  OPTION  *•*"  1  FOR  1*1  TO  1000  1 
NEXT  1  PRINT  0KP,  BL*  1  GOTO  180 
220  RETURN 


RQBVST  -  I 

300  REM  s  •  e  ROBUST-t  SUBROUTINES  ••• 

310  CLS 

320  PRINT  T AB(22>*  ROBUST -t  TECHNIQUES*  !  PRINT 

330  PRINT"  The  two  robust  techniques  listed  below  are  useful  in" 

340  PRINT’calculating  confidence  intervals  for  the  population  mean* 

330  PRINT" when  known  or  suspected  outliers  violate  the  assumption  of* 
360  PRINT ‘■near  normality:* 

370  PRINT 

380  PRINT"  in  Winsorued-t  Technique 
390  PRINT"  (2)  Tri/nmed-t  Technique 
600  KP-896  1  KS-2  1  GOSUB  180 
610  CLS 

620  IF  10*1  ZR»"Winsorinng*  ELSE  ZR«*Trimming* 

630  PRINT" Enter  Desired  Level  of  "IZRl*  (10  max)";:  INPUT  JG 
640  IF  JG-0  THEN  WM-XB  1  WS-SQR(Vl)  i  GOTO  810 
630  FOR  IM  TO  JG 
660  W(H»Y(JG*1) 

670  HW(I)-Y(IM-JG) 

680  NEXT  I 
690SM-0 
700  S2-0 

710  FOR  I»l  TO  JO 
720  3M*SM  *  W  (!)♦  WM  (I) 
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UNCLASSIFIED 
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END 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURLAU  OF  STANDARDS  19b.<  A 


730  S2-S2*WII)t2  »  HH(I)C2 
740  NEXT  I 

730  FOR  I-JG+1  TO  IN-JG 
740  SM-SM+YU) 

770  S2-S2-»Y(I)C2 
700  NEXT  I 
700  HM-SM/IN 

800  WS«SQR«S2-(SM£2>/IN>/(IN-1» 
810  ON  10  GOSUB  1000,  1300 
820  RETURN 


WINSORIZED-t 

1000  REN  •••  WINSORIZED-t  *** 

1010  CLS 

1020  PRINT  TAB(23)*HINS0R1ZED  -  t* 

1030  PRINT  8128," At  U«(l  »“MG 

1040  PRINT"Winsoriiod  Point  Estimate  for  the  Mean  «*;WM 

1030  PRINT  1  INPUT" Enter  Dewed  Confidence  Level  (a*.  ,93)*}AL 

1060  IF  4D«I  THEN  AL-AL/100 

1070  PR-(l*AL)/2 

1060  DF*IN-2*JG-1 

1090  GOSUB  8000 

1100  PRINT  1  PRINT  AL*100i“X  CONFIDENCE  INTERVALS* 

1U0  PRINT  S  PRINT  TABUS)  WM  -  (IN-l)/tDF)  *  XQ  *  HS/SQRON);*  <  True  Keen  <"!  HM  ♦  (IN-1)/(DF)  •  XQ  •  W 
S/SQRON) 

1120  PRINT  8960, "PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU"; 

1130  IF  INKEY*  O  "  '  GOTO  1130 
1140  RETURN 


TRIMMED -t 

1300 REM  •••  TRIMMED-t  ••• 

1310  CLS  S  PRINT  T AB (23 ) “TRIMMED- 1 * 

1320  PRINT  01 28," At  Level  -"JJG 

1330  FRINTTrimmad  Point  Estimate  for  the  Meed  ■"} 

1340  SM-0 

1330  FOR  W(W  TO  IN-JG 
1360  SM-SMeYG) 

1370  NEXT  I 

1380  TM-8M/(IN-2e  JG) 

1390  RW-«(IM- 1  )/ (IN-2*  JO- 1  ))#  MS  1 2) 

1600  PRINT  TM 

1610  PRINT  S  INPUT* Enter  Desired  Confidence  Level  (e,a.  ,93)*SAL 

1620  IF  AL>«1  THEN  AL-AL/100 

1630  DF-IN-2»JO-l 

1640  FRXt»AL>/2 

1630  GOSUB  8000 

1640  PRINT  1  PRINT  TABUS)  TM  -  XQ«SQR(RW/ON-2*JG))t*<  True  Mean  <*JTM  ♦  XQe&QR<HH/aN-2eJG» 
1470  PRINT  8960, "PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU"? 

1480  IF  INKET*  O  *  *  GOTO  1680 
1690  RETURN 


CONFIDENCE  INTERVAL  FOR  THE  MEDIAN 

2000 REM  •«*  CONFIDENCE  INTERVALS  FOR  THE  MEDIAN  *•* 
2010  CLS 

2020  PRINT  813, "CONFIDENCE  INTERVAL  FOR  THE  MEDIAN* 

2030  PRINT  8128,*  Calculation  of  e  confidence  interval  for  the  median  is* 

2040  PRXNT"besed  on  the  binomial  distribution  which  is,  of  aourte,  a  die-* 
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2050  FRINT"crete  distribution.  An  interval  will  bo  calculated  such  that* 

2060  FRINT*the  confidence  level  you  soeafy  will  bo  mot  or  excMded," 

2070  PRINT  :  INPUT" Entor  Oosirod  Confidence  Lovol  (04.  ,95)";AL 

2060  IF  AU»1  THEN  AL-AL/  100 

2090  CLS  1  PRINT  0471, "CALCULATING* 

2100  F-.5 

2110  PR-0 

2120  IF  IN<-30  BB-0  1  GOTO  2180 
2130  IF  IN>«150  BB-53  1  GOTO  2170 
2140  IF  1N7-100  BB-33  1  GOTO  2170 
2150  IF  IN>-60  BB-20  1  GOTO  2170 
2160  IF  IN>-40  THEN  BB-12  ELSE  8B-8 
2170  MU-,3  1  VAR-.25/IN  1  GOTO  2210 
2180  GOSUB  2500 
2190  PH  -  PR 

2200  PR-PR  ♦  BC  •  PtIN  1  GOTO  2220 

2210  PH-PR  S  NX*(BB+.3)/IN  1  GOSUB  30001  PR-FOX 

2220  IF  PR  <  (1  -  AL)/2  THEN  BB-BB+1  1  IF  IN730  GOTO  2210ELSE  GOTO  2180 
2230  FR-1-2#PH 
2240  CLS 

2250  IF  PR-1  THEN  PR-.995 

2260  PRINT  910,**J1PRINT  USING"**6.**;PR*100;:PRINT*%  CONFIDENCE  INTERVAL  FOR  THE  MEDIAN* 
2270  IF  BB-0  THEN  BB-1 

2280  PRINT  9148,  Y(BB)1"<  Median  <‘l  YON-BB*!) 

2290  FOR  BB-Rl  TOS1-1 

2300  PRINT  9960,’PRESS  SPACE  BAR  TO  RETURN  TO  MENU*', 

2310  IF  INKET*  O  *  *  GOTO  2310 
2320  RETURN 

2300  REM  BINOMIAL  COEFFICIENT  ••• 

2510  BC-0  1  B-0  1  SB-BB  1  QB-IN-BB 
2320  FOR  81-1  TO  IN 
2330  IF  SB7-QB  GOTO  2390 
2340  IF  SB7-BI  THEN  B-B+LOG<BI> 

2330  IF  QB>BI  GOTO  2630 

2360  IF  QB-BI  THEN  BC— B  1  GOTO  2630 

2370  BC-BC  -  LOG<BV 

2380  GOTO  2630 

2390  IF  QB7-BI  THEN  B-H»LOG<BI) 

2600  IF  SB>BI  THEN  GOTO  2630 
2610  IF  SB-BI  THEN  BC— B  1  GOTO  2630 
2620  BC-BC+LQG(BI> 

2630  NEXT  BI 
2640  BC  -  EXPfflC) 

2630  RETURN 


JACKKNIFE  ESTIMATES  i  CONFIDENCE  INTERVALS 

3000  REM  #  *  •  JACKKNIFE  SUBROUTINE  ••• 

3010  CLS  1  PRINT  TAB<22>  "JACKKNIFE* 

3020  PRINT :  PRlNTThd  jackknife  technique  is  useful  for  reducing  blss  in  the  estimates  of  perimeters  end  i 
n  obtaining  robust  interval  estimates, 

3030  PRINT 

3040  PRINT  "NOTE  1:  Estimate  &  Conf.  Int.  for  Variance  are  baaed  on  Jack-  knife  of  log  (base  10)  of  s*  1  PRINT 
3000  PHINT'NOTE  21  Jackknife  Est,  &  Conf,  Int,  for  the  Mean  are  identical  to  classical  calculations  and  are  ind 
udad  here  for  convenience  only, 

3060  PRINT 

3070  PRINT"  ";LB»!"1";RB*S"  Mean" 

3080  PRINT*  *tLB»;*2*;RB»;"  Variance" 

3090  X P-960  :  XS-2  i  GOSUB  180 

3100  CLS.1F  1 0-1  THEN  PE-XB  :  IH-1  !  SD-SQR(Vt>  S  GOTO  3220 
3120  PM-LOG(SQR(V  1  »/LOG(10) 

3130  PE-0  !  S2-0 
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3140  FOR  1-1  TO  IN  STEP  IH 
3130  GOSUB  3430 

3160  SV-<IN/IH)*PM  -  <IN/IH-l)*L01 
3170  S2-S2  ♦  SV«SV 
3180  PE-PE  *  SV 
3190  NEXT  1 

3200  SD-SORt  IS2  -  (PEI2)/(IN/IH»/(IN/IH-1) ) 

3210  FE-PE*IH/IN 
3213  CLS 

3220  PRINT  90,CHRS<233> :  PRINT’Fowt  estimate  of  “! 

3230  IF  IO«l  ZF-’Mean*  ELSE  ZP*“Variance“ 

3240  PRINT  IPI*  »*; 

3230  IF  10-1  PRINT  PE  ELSE  PRINT  lOKPE+PE) 

3260  IF  10-2  PRINT'Point  estimate  of  Std.  Deviation  -"ilOIPE 

3270  PRINT  i  INPUT*  Enter  the  desired  Confidence  Laval  (e.g.  .93>*!AL 

3280  IF  AL>-1  THEN  AL-AL/ 100 

3290  PR-t  -  (1-AL1/2  !  IF  PRM  PR-PR/100 

3300  DF-IN/IH-I  !  12-1  !  GOSUB  8000 

3310  L-PE  -  XQ  •  SD/SQR(IN/IH>  i  IF  10-2  L-10t(L*L) 

3320  U-PE  ♦  XO  •  SD/SQR(IN/IH)  !  IF  10-2  U-10C(U*U> 

3330  PRINT  1  PRINT  AL*100i"%  Confidanca  Interval:* 

3340  PRINT*  *:L;*  <  True  Value  of  ‘!ZP!*  <*!U 

3330  IF  10-2  PRINT*  “!SQR<L>;*  <  True  Value  of  Std.  Deviation  <*;SQR(U> 

3360  PRINT  :  PRINT  :  PRINT  !  PRINT****  PRESS  SPACE  BAR  TO  RETURN  TO  MAIN  MENU* 

3370  IF  INKETt  O  *  *  GOTO  3370 

3380  RETURN 

3400  SF-0  :  FOR  I-t  TO  3 

3409  IF  IN/I-INTIIN/I)  THEN  PG<I)-1  ELSE  PG(I>-0 

3410  IF  PG(I)-1  THEN  SP-SP*1 
3413  NEXT  I 

3420  CLS  :  IF  SP>1  THEN  3432  ELSE  PRINT  *  Since*  iINS*(the  •  ample  tin)  is  a  prune  number  it  is  only* 

3423  PRINT*possible  to  jackknife  in  groups  of  1.  For  large  sample  sizes,  computation  time  is  excessive.*! 

3430  PRINT IGOTO  3433 

3432  PRINT*  Too  may  jackknife  in  groups  as  listed  below.  Computation  time  is  a  function  of  both  the  sample 
size  and  group  size  and  becomes  excessive  with  large  samples  and  small  groups.* 

3433  FRINT:FRINT*e.g.  Sample  Size  Group  Size  Approx.  Time'IFRINT*  100  I  23  min.*3F 

8PM  PRINT*  100  2  8  min.*!PRINT*  30  1  4  min.* 

3434  PRHrr:PRlNT*You  may;  *XB*;*Q*;RB*;*uit* 

3433  JL-l  IPRINT*  or*:PRINT" Jackknife  in  groups  of!" 

3436  FOR  1*1  TO  3 

3438  IF  PG(JL)-1  THEN  PRINT*  'iLBSSJURB*!  ELSE  JL-JL+1  !  IF  JL<-3  THEM  3438 

3442  IF  PG1JU-1  THEN  JL-JL*1!  NEXT  I 

3444  PRINT  8963,*Indicate  Option  *:LB*;CHH4(t74J!RB*J 

3446  04-INKETt  :  IF  OS-’*  OR  OS-CHRSU3)  THEN  3446  ELSE  PRINT  9  982,OS!:FOR  I-l  TO  100IMEXT 

3447  IF  OS-*Q*  OR  0*-*q*  THEN  40  ELSE  FOR  IH-l  TO  3 

3448  IF  VAL(0»)-IH  AND  PGUHM  THEN  RETURN 

3449  MEXT  IH  :  GOTO  3444 
3430  LOl-O  :  SM-0 

3460  FOR  J«1  TO  IN 

3470  IF  JO  OR  J3-I+IH  THEM  SM-SM-RTCJ) !  L01-L01*RT(J)C2 
3480  NEXT  J 

3490  LOIXLOl  -  (SMC2)/(IN-IH))/GN-IH-l) 

3300  LOl*LOO<SQR<LOl))/LOO(10) 

3310  RETURN 

3390  FOR  I-l  TO  IN  J  RT(D-T®  !  NEXT  !  IF  IH-l  RETURN 
3939  FOR  I-IN  TO  1  STEP  -1 
3360  IU-RND<IN> 

3343  RT-RTO) !  RT(D-RTOU) :  RTOU1-RT 
3370  NEXT  I 
3373  RETURN 
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NORMAL  DISTRIBUTION 

3000  REM  •••  NORMAL  DISTRIBUTION  • 

9010  SD-SQRlVAR) 

9020  xn-(NX-mv>/sd:ax«absixm) 

9030  XZ-<3989423*£XP«-AX-AX)/2) 

9040  MT«t/<t».23164I9«AX> 

3050QOX-x:*«.3t93813»MT>-<.3363638-NTl2>«’<1.781479«NTC3M1.821234*NTC4»<1.330274*irn3» 

9060  IF  XN<0  GOTO  3090 

9070  FOX-t-GOX 

9090  RETURN 

9090  FOX-QOX 

9100  OOX-l-FOX 

9110  RETURN 


t- DISTRIBUTION 

6000 REM  •••  ('DISTRIBUTION  ••• 

6010  IF  TX<0  I>1  ELSE  13-0 

6020  IF  OF723  GOTO  6430 

6030  TRET  A- ATN<  ABStTX  )/SQR(DF» 

6040  IF  DFOl  GOTO  6090 
6090  AT->6366198«THETA 
6060  FOX-1AT+1J/2 
6070QOX-1-FOX 
6000  GOTO  6400 

6090  IF  IKT(DF/2»OF/2  GOTO  6220 

6100  IF  DF-3  GOTO  6370 

6110  TS-0  1  TF-1  !  TC-COS<THETA) 

6120  FOR  I-l  TO  INT((DF-3)/2) 

6130  TJ*TP*2»I/<H-2*I) 

6140  TC-TC*(COS(THETA)t2) 

6130  TS-TSXTP-TC) 

6160  NEXT  I 

6170  TB-TS«COS<THETA> 

6100  AT><6366198*<THETA«<SIN(THETA>*TS)) 

6190  FOXXAT*l)/2 
6200  OOX-l-FOX 
6210  GOTO  6400 
6220  IF  DF02  GOTO  6270 
6230  AT-SUKTHETA) 

6240  FOXXAT*l>/2 
6290  OOX-l-FOX  , 

6260  GOTO  6400 

6270  TS-0  !  TF-1  1  TC-1 

6200  FOR  I-l  TO  UCTt<DF-2>/2) 

6290  TF-TP*«2*I)-1>/<2*I> 

6300  TC-TCXCOStTHETAlU) 

6310TS-T0XTF-TC) 

6320  NEXT  I 

6220  AT-SXWTHETAIXl-TS) 

6240  FOXXAT-U/2 
6390  OOX-l-FOX 
6260  GOTO  6400 

6270  AT-A36AI90XTRITA-<SIM(TRETAMC08<THETAm 
6200  FOXXATM1/2 
6290  OOX-l-FOX 

6400  FX-TX  _ 

6410  IF  12-0  RETURN 
6420  OOX-FOX 
6420  FOX-t-OOX 
4440  RETURN 

6490  NX*  TX  •  (1  -  >29/00)  l/EQRO  ♦  J-TXI2/DF) 
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MAO  MU-0  :  VAR-t  i  12-1  i  GOSUB  3000 
M70  PX-TX 
4400  RETURN 


BEEBBSB  HQRM&L 

7000  REM  •••  INVERSE  NORMAL  DISTRIBUTION  *•* 

7010  IF  FR>J  THEN  RL-SQR<LOG<l/«l-PR)C2»l  ELSE  RL-SQR(LOG(  1/(PRC2») 

7020  XQ-RL-442 >51531 7+4. 802853*RL>+(.0 10328*  RLC2»/(1+41 .432788*RL>+4.1 89269*  RLC2>+<.001309*RL(3») 
7030  IF  PR5-.3  THEN  XQ-MO<SQR<VR)*XQ>  ELSE  XQ-MO-(SQR(VR)«XQ> 

7040  RETURN 


«VERSE-t 

8000  REM  •••  INVERSE  t  -  D  I  S  T  R I B  U  T  I  O  N  ••• 

8010  MO-O  1  VR-i  i  12-1 
8020  GOSUB  7000 
8090  XC-XQ 

8040  X 04.23  •  (XCC3  *  XC»/DF 

8030  XO-XQ  *  ((1/94)  •  (5*XCC3  ♦  14*XCt3  *  3*XC»/DFt2 

8040  XOXO  *  4(1/384)  •  (3*XCC7  *  19*XCI3  *  17*XCC3  -13*XC))/DFC3 

8070  XQ-XQ  ♦  441/92160)  «  479*XCI9  ♦  776*XCI7  ♦  1482*XCI3  -1920*XCI3  -945*XC»/DFC4 

8080  XO  XC  *  XQ 

8090  IF  DF>3  RETURN 

8100  DELTA- 1 

8110  TX-XQ 

8120  GOSUB  6000 

8130  IF  ABS4PK-FOX)  <  .00001  THEN  XOTX  *.  RETURN 

8140  IF  PR  <  FOX  THEN  TX-TX-DELTA 

8130  IF  PR  <  FOX  THEN  DELTA-DELTA/ 10 

8140  IF  PR  <  FOX  THEN  GOTO  8120 

8170  TX-TX 'DELTA 

8180  GOTO  8120 


raMBAM  SELECTION  MENU 


10000  REM  •••  PROGRAM  SELECTION  MENU  ••• 

10010  CLS1PRIKT  TAB420VPROGRAM  SELECTION  MENU* 

10020  PRINT  Ql28,*81  Oat*  I/O,  Transformations.  Prob.  b  Inv.  Prob.  Distributions* ‘.PRINT 
10090  PRINT* #2  Sample  Stat  s,  7-Num-Sum,  Plots'lFRXMT 

10040  PRINT"*3  Parametric  Tests  of  Hypotheses  and  Confidence  Intervals* ‘.PRINT 
10090  PRINT* *4  Robust  Estimates  and  Confidence  Intervals*'  PRINT 
10040  PRINT*  83  Multiple  Linear  Regression  “'.PRINT 
10070  PRINT* *4  Analysis  of  Variance* 

10080  KP-896  1  KS-6  1  GOSUB  180 

10090  IF  IO-4  GOTO  20 

10100  IF  IO-3  THEN  2T«*2*  1  GOTO  10120 

10110  IF  IO-l  OR  102  THEM  IT-*1*  ELSE  IT-*3* 

10120  CLS 

10130  IF  IOl  OR  103  OR  10-3  THEN  lOt  ELSE  102 
10140  CLS 

10130  PRQrriNSERT  TAPE  fiTH*  INTO  ESF-60  AND  PRESS  SPACE  BAR* 

10140  IF  INXST40*  '  GOTO  10160 
10170  OLOAD1 
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3  CLEAR 

10  DD(  MMtlOO.lO),  VC<  100,101,  VTV<10,100),  RV(IOO),  RHUOO),  E(100),  H(100),  ID(20> 

20  DEFSTR  1 !  DEFINT  I-K 

23  LB*eCHR«(123>  :  RBS-CHRSU23)  :  8LS-CHRS<232> 

30  REM  *••  PROGRAM  D1SCREPTI0M 
40  CLS 

30  PRINT”  •  MULTIPLE  LINEAR  REGRESSION  •” 

40  PRINT  1  PRINT  *  This  program  fits  a  linear  modal  to  the  data  by  tha  method  of  Ordinary  Least  Squares  (OLS 
L  Parameters  and  statistics  cal-culated  include  the  equation  coefficients,  standardized  coeffi-  aants,  *! 

70  PRINT  ‘partial  P  statistics  for  the  coefficients,  correlation  matrix,  Hat  Matrix  (diagonal  elements)  and  ANOV 
A  table, 

W  PRINT 

90  PRINT*  MODEL!  T  »  BO  ♦  Bt  *  XI  *  B2  *  X2  *  ...  ♦  Bn  •  Xn 
100  PRINT  !  PRINT*  WHERE!  T  -  Response  Variable 
110  PRINT*  XI  ...  Xn  ■  Carrier  Variables 

120  PRINT*  BO  ■  Constant  (  T  Intercept ) 

130  PRINT*  B1  ...  Bn  *  Coefficients  of  Carrier  Variables 

140  PRINT  !  PRINT**  PRESS  SPACE  BAR  TO  CONTINUE*! 

130  IF  INKETS  O  *  *  GOTO  130 
140  CLS 

170  FOR  I-1S  TO  39  !  SET(I,3) !  NEXT 
173  PRINT  9 10, ‘PROGRAM  LIMITATIONS'! 

1B0  PRINT  9l28,*<a)  No  more  than  9  carrier  variables 

190  PRINT  9234.*(b>  No  mare  than  100  observations 

200  PRINT  9443, ‘MENU!*!  FOR  I>30  TO  44!  SET(I,2«):NEXT 

210  PRINT  9374, ‘(1)  Data  I/O 

220  PRINT  !  PRINT"  (2)  Program  Selection  Menu* 

230  0*894  !  KS-2  !  GOSUB  300 
240  ON  IO  GOTO  400,  10000 


OPTION  SELECTION 

300  REM  ••*  OPTION  SELECTION 

310  PRINT  9EP*3,‘OPTION  DESIRED  ‘!LBS!CHR«U74>;RBSt 

320  H-INKEYS  !  IF  ZI-“  GOTO  320 ELSE  IO-VALdl) 

330  PRINT  9KP+21,  ZI! !  FOR  1-1  TO  100  !  NEXT 

340  IF  ICK1  OR  IO>KS  THEN  PRINT  9KP,  BLSJ !  PRINT  9CP,‘*e*  NOT  A  VALID  OPTION  *#*•«  FOR  1-1  TO  1000 
1  NEXT  !  PRINT  9KP,  BLS!!  GOTO  310 
330  RETURN 

340  PRINT  9KP*3.LB*;*  *;L*r  or  '!RS;RBS!‘  *;LBS!CHRS(174>!R8<! 

370  ZQ-1NKETS  !  IF  ZO-“  GOTO  370ELSE  PRINT  9KP*17,  ZQ! !  FOR  I»1  TO  100  !  NEXT 
380  IF  ZQOLf  AND  ZQOCHRS(ASC(Lt>-32>  AND  MORS  AND  ZQOCHRt<ASC(R4>-32>  THEN  340 
390  RETURN 


400  REM  see  INPUT/OUTPUT  OPTIONS  *•* 
410  CLS 

420  PRINT  TABQOriNPUT/OUTPUT  OPTIONS* 

430  PRINT  9128,' ‘(1)  Input  Data  via  Keyboard 
440  PRINT*  (2)  Input  Data  via  Tape 
430  PRINT* (3)  Save  Data  to  Tape 
440  KP-894  !  KS-3  !  GOSUB  300 
470  ON  10  GOTO  1000,  300,  700 
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IMFPT  DATA  VIA  TAPE 

300  REM  ♦  *•  INPUT  DATA  VIA  TAPE  •  •• 

310  CLS  PRINT“Ins#rt  DATA  TAPE  into  ESP-80  and  pres*  SPACE  BAN* 
320  IF  INKEY *0*  *  GOTO  520 

390  PRINT  9132, ‘Data  FU*  Number  •:LB»;CHR»<176i:RB*[ 

340  U-INKET*  S  IF  2I»“*  THEN  340!  ELSE  FI*VALIU) 

330  PRINT  9150,  III!  FOR  1-1  TO  100  i  NEXT 

340IFFK1  THEN  530 

370  OCLOSE 

S80  9OPEK  FI 

3*0  OINPUT  CV,IN,YM,Y2 

400  FOR  I>l  TO  IN 

410  OINPUT  RVd) 

420  FOR  7-1  TO  CV 
423  IF  lOl  THEN  430 
428  OINPUT  MU<7),X2<7> 

490  OINPUT  MMd,7> 

440  NEXT  7 
430  NEXT  I 
440  OCLOSE 
4*3  TA*-*T* 

470  CLS  :  PRINT-CALCULATING  CORRELATION  MATRIX...*  1  GOTO  1230 


SAVE  DATA  TO  TAPE 

700 REM  SAVE  DATA  TO  TAPE  *•* 

710  CLS  1  PRINT*  Insert  DATA  TAPE  into  ESF-80  and  press  SPACE  BAR* 
720  IP  INKEY40*  *  GOTO  720 

790  PRINT  0l32.*Filc  Numoer  to  Save  Data  Under  “;LB»;CHRS<176>;RB«; 
740  U-INKET*  !  IF  U-**  THEM  7  40 ELSE  FI-VALOI) 

730  PRINT  0144,  ZXZ:  FOR  1-1  TO  100  i  NEXT 

740  IF  FI<1  THEM  730 

770  OCLOSE 

780  OOFEN  FI 

7*0  QPJUJTT  CVJN,TM,Y2 

800  FOR  1-1  TO  IN 

810  QFRINT  RV(I) 

•20  FOR  7-1  TO  CV 
•23  IF  IOl  THEN  830 
•28  QPRINT  MU(7),X2(7) 

•90  9PRINT  MMUJ-) 

•40  NEXT  7 
•30  NEXT  I 
840  OCLOSE 

870  PRINT  9512, "OPTIONS:* 

•80  OCLOSE 

8*0  PRINT*  (1)  Continue  with  Regression 
*00  PRINT*  (2)  Return  to  Program  Menu 
*10  PRINT*  (9)  Go  to  Program  Selection  Menu 
*20  KF-894  :  KS-3  1  GOSUB  300 
*30  ON  10  GOTO  1300,  160,  10000 


UOVT  DATA  m  KETBQSfiP 

1000 REM  •••  INPUT  DATA  VIA  KETBOARD  ••• 

1010  CLS  , 

1020  INPUT* Number  of  Carrier  Variables  to  be  entered'JCV 

1030  IF  CV>*  PRINT****  ERROR  **•  NO  MORE  THA^9  CARRIERS  ALLOWED’JOOTO  1020 
1040  IF  CV<1  PRINT****  ERROR  ♦**  MUST  HAVE  AT  LEAST  1  CARRIER  VARIABLE* KIOTO  1020 
1043  FOR  1-1  TO  CV  1  MUdl-0  :  XS(IM) :  X2GMO  i  SX(I>>0  :  NEXT  I 
1030  INPUT* Enter  the  Number  of  Observations'dM 

1040  I F  INC-CVM  THEN  PRINT****  ERROR  ***  MIN.  NUMBER  OF  OBSERVAnONS  -*1CV*2  1  GOTO  1030 
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1070  CLS 

1085  rs-o :  T2-o :  sy-o :  tm-o 

1090  FOR  X»1  TO  IM 

uoo  print-observation  **a 

1120  PRINT*  Enter  the  oC*erved  value  for  the  response  variable.  Y‘"INPUT  RV(I) 

1122  YM*YM*RV<I> :  SY*RV(I>-YS  S  YS»YS»SY/X  :  Y2*Y2*SY«<RV(I>-YS> 

1130  FOR  J*1  TO  CV 

1140  PRINT*Enter  the  Value  for  urnir  variable.  X*;M10«(STR«(J’).2.2>;:DIFUT  MM<I«T) 

1142  MU<T)*MU<J>*MM(I.J>  i  SXa»MMU^>-XS(J)  !  XS(J)-XS(J>*5X(J)/1  i  X2(J>*X2U>r8XlJ>*(MMa,J>-XS<J» 
1150  NEXT  J 
1160  PRINT 
1170  NEXT  I 


CALCULATE  AND  DISPLAY  CORRELATION  MATRIX 

1180  CLS  :  PRINT-CALCULATING  CORRELATION  MATRIX. m* 

U90YM-YM/IM 
1200  FOR  J*1  TO  CV 
1210  MU<J)-MU<J>/IN 
1220  NEXT  J 
1225  TAM-N* 

1230  FOR  1*1  TO  IN 

1240  IF  TA40-T*  THEN  RVd)-<RV<I>-YM>/SQR<T2) 

1250  FORT-1  TO  CV 

1260  VC<I,J>-<MMa,J>-MVU»/SQRa2<J» 

1280  NEXT  J 
1290  NEXT  1 

1295  FOR  1-1  TO  IM  :  VCdJ>RV<I)  1  NEXT  I 
1300 IV-CV+1  :  RET4--T-  i  OOSUB  2000 
1310  RET*-*N*  !  EPS*lE-3 

1320  CLS  :  PRINT-CORRELATION  MATRIX!"  !  PRINT 
1325  IF  CV<*5  THEN  PRINT*  *i  ELSE  PRINT*  *! 

1330  FOR  1*1  TO  CV  !  PRINT  *  X*;RXGHT*<STR*OMK !  IF  CV<*3  THEM  PRINT  ■  *!  ELSE  PRINT*  *} 

1335  NEXT  !  PRINT*  Y* 

1340  FOR  1*1  TO  I V 
1350  FOR  J*1  TO  IV 

1355  IF  CV>5  THEN  P*--0.0#0-  ELSE  P*«*0.t*#p- 

I960  IF  J*l  AND  I<*CV  THEN  PRINT  -X-!RIGHT*(STR*aU)J-  ",  ELSE  IF  J-l  PRINT  T  *1 

1362  IF  ABSfWajl-lKEPS  AND  CV>3  THEN  PRINT  *  1  ",  i  GOTO  1380 

1364  IF  ABS<VVaj)-lKEPS  THEN  PRINT"  1  -J !  GOTO  1380 

1370  PRINT  USING  PtJWdrT)! !  IF  CV<*3  THEN  PRINT-  ",  ELSE  PRINT*  -J 

1380  NEXT  J 

1390  PRINT 

1400  NEXT  I 

1410  PRINT  8969,-press  SPACE  BAR  to  Continue*; 

1420  IF  INKEY90*  •  THEN  1420 


or.  «rr  ctwopt  OF  CARRIER  VARIABLES 

1500  REM  •••SELECT  SUBSET  OF  CARRIERS  ••• 

1510  IF  CV*  I  THEM  1380 

1520  CLS  1  PRINT*  The  data  Array  entered  contains-JCVrcarrlar  variables.  You* 

1530  PRINT* may  regress  on  alTiCVPcamers  or  any  subset.* 

1540  PRINT  8197 .LB*!* A-!RB*!-U  or  *;LS«!-S*;R8«;*ubset  *XB»^HR*<174)iRB*; 

1550  HC«*INZET*  :  IF  HC*>"  THEN  GOTO  1530ELSE  PRINT  8221. HC*  !  FOR  1*1  TO  100  1  NEXT 

1560  IF  HCtO-A*  AND  HC*0*a'  AND  HCSO'S*  AND  HCtO's*  THEM  1540 

1570  IF  HC***S*  OR  HC*--»*  THEN  1600 

1580  FOR  1*1  TO  CV  !  U«(I»*Y*  !  NEXT  !  GOTO  1810 

1600 REM  •••  CHOOSE  SUBSET  OF  CARRIERS 

1620  CLS  1  IF  IM>*5  THEN  JD-3  ELSE  JD«IN 

1630  PRIMT-To  facilitate  recognition,  the  flrst*}JDrvalues  for  each  carrier*  1  PRINT* are  displayed  below.  When 
prompted  indicate  whether  you  want* 

1640  PRINT*to  •;LB*;-R"‘.RB*“etAin  or  •!LB*,-D-UlB*relete  each  carrier  for  the  regression.* 

16S0EP-2S6 
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1460  FOR  I- 1  TO  CV 

1470  PRINT  3KP*3,'X*:MID*<STR«<I>.2.2>;*  *J 
1400  FOR  7-1  TO  JD 

1490  PRINT  MM<J,I)5!IF  7070  PRINT  Vi 

1700  NEXT  J 

1710  KP-JCP-64 

1720  NEXT  I 

1730  KP-256 

1740  FOR  1*1  TO  CV 

1790  PRINT  9KP,La*:CHR*(174)!RB»: 

1740  RT9-INKEY*  !  IF  RT*-**  GOTO  1760ELSE  PRINT  9KP-I.RT*! 

1770  IF  RT*0*R"  AND  RT«OV*  AND  RT*O"0'  AND  RT»0*d“  THEN  1750 
1700  IF  RT*«*R*  OR  RT*-*r*  THEN  U«(I>-"Y*  ELSE  U*<I>-"N" 

1790  KP-KP-64 
1800  NEXT  1 
1810  UWOl-'Y* 

1820  IV-0 

1830  FOR  1*1  TO  CV 

1840  IF  U*(I)-*T"  THEN  IV-IV+1  1  IW(IV)-I 
1850  NEXT  I 
1840 7-0 

1870  PRINT  8896,*R«gr«»*  on!  *1 
1880  FOR  1*1  TO  CV 

1890  IF  U«<D-*Y"  THEN  IF<7*1)-I  5  7-7*1 
1900  NEXT  I 

1910  IF  IV-0  THEN  PRINT  9896,’***  ERROR  ♦**  YOU  HAVE  DELETED  ALL  CARRIERS" IFOR  1-1  TO  2500  I  NEXT 
I  GOTO  1500 
1920  FOR  1-1  TO  IN 
1930  FOR  7*1  TO  IV 

1940  IF  J-IV  AND  K-IV  THEN  PRINT  •X*:MID*<STR*<IWU».2,2>;\  ”, 

1950  VC<I.J>*(MM(I.IP<J)>-MU<IP<J)))/SGR<X2(IP<7)» 

1940  NEXT  7 
1970  NEXT  I 

1980  PRINT  Q960t*CAlcuUting...*; 


CALCULATION  OF  OLS  ESTIMATES 


CAMVUTS  X*  X 

2000  REM  *  *  «  CALCULATION  OF  LEAST  SQUARES  ESTIMATOR  ••• 

2010  REM  BETA.twt  -  <  X' X  ).inv«rM  X' T 

2030  REM  ***  CALCULATE  X' X 

2040  FOR  1*1  TO  IV 

2090  FOR  7-1  TO  IV 

2060  wajw :  via  j)*o 

2070  NEXT  J 

2080  NEXT  I 

2090  FOR  1-1  TO  IV 

2100  FOR  7-1  TO  IV 

2110  SUM-0 

2120  FOR  IK-t  TO  IN 

2130  SUM-SUM  ♦  VCaK.I)tVC(IK-J) 

2140  NEXT  IX 
2190  WU,7>-SUM 
2140  NEXT  7 
2170  NEXT  I 

2180  IF  RET*-*T*  THEN  RETURN 


tALCTUTt  miioxsm 

2900  REM  •••  CALCULATE  <X'X  HnvffM  •  •  • 
7510  FOR  1-1  TO  IV  1  VT(I.I)-1  1  NEXT 
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3240  SUM«SUM*VTV(I.IKH*RV(ir) 
3230  MEXT  IX 
3260  B(I>  -  SOM 
3270  NEXT  I 


TRANSFORM  BETA  COEFFICIENTS  TO  REGRESSION  EQUATION  COEFFICIENTS 

3300  REM  •••  TRANSFORM  BETA  COEFFICIENTS  TO  REGRESSION  EQUATION  COEFFICIENTS  • 
3303  B10I-YM  i  SC(0»YM 
3310  FOR  1*1  TO  IV 
3320  SC<I>-B<I> 

3330  B<D-SC<I>*SQR<Y2)/SQR<X2<I?<I)» 

3340  B<0>-B<0>-B<I>*MU<IPa» 

3330  NEXT  I 


CALCOT  ATF  PT.EMEMTS  OF  ANOVA  TABLE 

3300 REM  •••  CALCULATE  ELEMEMTS  OF  ANOVA  TABLE  • 

3510  RSS*0  :  ESS-0  i  E2S-0 

3520TSS-Y2 

3370  FOR  1-1  TO  IN 

3360  SUM-0  : 92M-0 

3390  FOR  IK-t  TO  IV 

3600  SUM-SUM-MMU  JP<IK)MB(IX) 

3609  S2M«S2M*VC(UK»SCOK) 

3610  NEXT  IK 
3620  SUM-SUM-BIO) 

3630  RH<I>-SUM 

3640ESS-ESS-<RVa)*SQH(T2HYM-SUM>*(RVa)#SQR{T2>*YM-SUM> 

3643  E2S-E2S-<RV<I>-S2M>*<RVa>-S2M> 

3630  E(I)-<RVa)*SQR(Y2)-YM>-SUM 
3660  NEXT  I 
3663  RSS-TSS-ESS 
3670  MRS-RSS/aV) 

3680  MES-ESS/ GN-IV- 1 ) 

3683  M2S-E2S/ON-IV-1) 

3690  F-MRS/MES 

3700  R2-RSS/TSS 

3710  FOR  I-l  TO  IV 

3720  TG)-SC(X)/(SQR(M2S  *  VI04») 

3770  SE(I)-SQR<M2S  •  Viaj»  •  SQR(Y2)/SQR<X2(mXm 
3780  NEXT  I 


PI3PUT  AMQ2A  TABLfii  fiECRSSMH  EQVAHMU  01868  STAUSTICS 

4000 REM  •••  PRINT  OLS  SOLUTION.  ANOVA.  A  OTHER  STATISTICS  ••• 
4010  CLS 

4020  PRINT  Q26.*A  NOVA* 

4030  FRUIT*  Sour ci  DF  Sun  of  Souatm  Mojo  Samra  F*Ritlo 

4040  FOR  1-3  TO  131  SET(I,6)S  NEXT!  FOR  1-26  TO  29!  SET  (1,6)!  NEXT!  FOR  1-40  TO  671  SETU,6>:  NEXT;  FOR  1-78 
TO  99S  SETII, 6):  NEXT?  FOR  1-106  TO  120!  SETU.6K  MEXT 

4030  PRINT  9 1 92t'R*gr  M»ion  *  "PRINT  QZ04,IV;:PRINT  8213, RSS11  PRINT  8231 J4RSI  STUNT  9243,*  *WF  F>999.99 

9 THEN  PRINT  VSIN0**0.#6*#*C£tt*;F  ELSE  PRINT  USING*696«.690*;F 

4060  PRINT  9258,*Error*;:PRINT  8268, IN-(IV+ 1 ), SPRINT  9277,ESS;:PRINT8293,MES 

4070  PRINT  9322»*Total*;:PRIMT  9332.IN-1  SPRINT  9341, TSS 

4080  PRINT  :  PRINT  *Ttw  R*qr«Mian  Equation  i»:* 

4090  PRINT  Y  -  *5 
4100  FOR  1*0  TO  IV 
4110  IF  I  O  0  GOTO  4140 

4120  IF  8«0)>-0  THEN  PRINT  •  *5  ELSE  PRINT  *-  *1 
4130  GOTO  4130 

4140  IF  BCD  >«  0  THEM  PRINT  ♦  ”,  ELSE  PRINT  -  *1 
4130  PV-ABS(Ba)) 


4160  IF  PV>W».W«  OR  PVC.OOOt  THEN  PU*-'4.eeeemi*  ELSE  PUt>**ee»e.eeee* 

4170  PRINT  USING  PU4;PV‘, 

4180  IF  IOO  PRINT*  X*:MID«*STR*<Iwa»,2,2>;*  *;  ELSE  PRINT  *  *! 

4140  IF  1-2  OR  1-5  OR  1*8  THEN  PRINT*  “  :  PRINT*  *1 
4200  NEXT  I 

4205  IF  IV<-5  THEN  PRINT  0704, *“j  ELSE  PRINT  0768,**! 

4210  PRINT  *R-Square;  *;:PRINT  USING"#.4#ee“;R2;:PRINT*  *!*  Adjusted  R-Squarei  *!!PRXNT  USING** 

.*****;i  -( 1  -R2)«»1N- 1 )/  (IN-IV- 1 ) 

4220  PRINT*Std.  Error:*::PRINT  USING*946**.4e4e*;SQR<MES> 

4225  PRINT'Std.  Error  if  \  of  R»»oon*«  Maani—.IPRINT  USING"*eeee*e.#ee*:<SQR(MES>/YM>9100;:FRINT*\*: 
4230  PRINT  0940, “PRESS  SPACE  BAR  TO  DISPLAY  ADDITIONAL  STATISTICS'! 

4240  IF  INKEY40*  *  GOTO  4'_<0 

4250  REM  •  •  *  PPINT  COEFF'f,  t-5TAT's.  STD.  ERROR  of  COEFF's,  £  STANDARDIZED  COEFF's  see 
4260  CLS 

4270  PRINT* V»r.  Coefficient  Partial  F  SW.  Error  Bata  Coeff* 

4280  PRINT* - - - -  - ■ 

4290  Ul*-*****9«***«.ee***  i  U2*-**.****mc* 

4300  FOR  1*1  TO  IV 
4310PRINT*X*!MID4(STR«<IW(I»,2.2N 

4320  IF  ABS<B<I»>999999  OR  ABS(B(I)K.0001  THEN  PRINT  *  -.’.PRINT  USING  U2»!Ba)5:GOTO  4340 
4330  PRINT  USING  U1*;B(I)! 

4340  IF  ABS<T<D9T<DD999999  OR  ABS(T(I)*T(I)X.0001  THEN  PRINT*  *i!FRINT  USING  U24!T(I)*Ta)!:  GOTO  43 
60 

4350  PRINT  USING  U  l  *!T(I)*Ta>5  * 

4360  IF  ABS<SE<I >0999999  OR  ABSlSElDK.OOOl  THEN  PRINT*  SPRINT  USING  U2»!  SECDJSGOTO  4380 
4370  PRINT  USING  Ul«!  SE(I>! 

4380  IF  ABS<SC<I>»999999  OR  ABStSClIlK.OOOl  THEN  PRINT*  ‘{SPRINT  USING  U24!  SC  (I)  !  GOTO  4400 
4390  PRINT  USING  Ult;  SC(I) 

4400  NEXT  I 

4410  PRINT  0896, "Da  you  want  to  aaa  tha  Diagonal  Elements  of  tha  Hat  Matrix?*! 

4420  L*-*y*  !  R9**n*  !  HP-960  !  GOSUB  360 

4430  IF  IQ**N*  OR  ZQ-*n“  THEN  PRINT  0896,  BL*!S  PRINT  0960,  BLVIGOTO  4970 


DISPLAT  DIAGONAL  ELEMENTS  OF  HAT  MATRIX 

4500  REM  •••  DISPLAY  DIAGONAL  ELEMENTS  OF  HAT  MATRIX  ••• 

4510  CLS 

4520  PRINT  *  Tha  diagonal  clamant*  of  tha  Hat  Matrix  (  B  *  XtX'XJinv.  X'  >giva  a  meaaura  of  tha  influanca  of  th 
a  1  th  observation  of  theresponse  variable  on  tha  corresponding  fitted  value.*! 

4530  PRINT*  A  Targe'value  of  h(i,i)  is  indicative  of  an  outlier.  This,  of  course,  does  not  unply  that  tha  data  po 
Int  Is  necessarily  a  'bad'  point  .Out  should  alert  you  to  inquire  into  its  nature.* 

4540  PRINT  !  PRINT*  A  reasonable  rule  of  thumb  for  what  is  considered  a  large  Httj)  is  any  value  larger  than 
twice  the  rank  of  the  hat  ma-  trix  divided  by  tha  number  of  observations.* 

4550  PRINT  0704,  * .  i.e.  Consider  H(i,i)  >*!2*IV/IN;*  as  large* 

4560  IF  LH»-*N*  GOTO  4390 

4570  PRINT  0834,*NOTE!  A  blinking  cursor  will  highlight  Targe'  H(i,i)‘s* 

4580  FOR  JG-t  TO  10  !  PRINT  0832,CHR*(143)!!  FOR  JH*1  TO  25  !  NEXT  JH!  PRINT  0832,*  *!!  FOR  JH-l  TO  25  i 
NEXT  JH  !NEXT  JO  !  PRINT  0832, **! 

4590  PRINT  0960, ’Press  SPACE  BAR  to  display  the  H(i,i>  '•*! 

4600  IF  INKET*  O  *  *  GOTO  4600 
4610  CLS 

4620  PRINT* Diagonal  Elements  of  Hat  Matrix!* 

4630  FOR  1-1  TO  IN  STEP  3 

4640  IF  INTd/37)  O  1/37  AND  INTU/73)  O  1/73  GOTO  4700 
4650  IF  LH«-*T*  GOSUB  4810 

4660  PRINT  0960, ‘Press  SPACE  BAR  to  display  remaining  elements*! 

4670  IF  INKET*  O  *  *  GOTO  4670 
4660  CLS 

4690  PRINT'Diagonal  Elements  of  Hat  Matrix  ( continued K* 

4700  FOR  J-0  TO  2 
4710  IF  W  >  IN  GOTO  4790 
4720  IF  J-0  GOTO  4740 

4730  I F  7-1  PRINT  TAB<21>!  ELSE  PRINT  TAB(42)I 
4740  J*-MID*<STR«<W>.2,3> 

4750  PRINT*H<*VI»!*,“Vl4i*)  «*!H<I»J>! 
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*760  NEXT  J 
*770  PRINT 
4780  NEXT  I 

4790  IF  LH»**Y*  GOSUB  4810 
4800  GOTO  4980 
4810  FOR  JX*1  TO  JL 

4820  IF  1037  AND  ID(JXK37  THEN  GOSUB  4870!  GOTO  4850 

4830  IF  I>37  AND  IO  73  AND  ID(JX»*37  AND  IDIJXK73  THEN  GOSUB  4870!  GOTO  4850 

4840  IF  I>73  AND  ID(XX)>73  THEN  GOSUB  4870 

4850  NEXT  XX 

4860  RETURN 

4870  FOR  JIM  TO  10 

4880  IF  1037  THEN  IJMD1JX) 

4890  IF  I>37  AND  1073  THEN  IP*ID(JX>-36 
*900  IF  I>73  THEN  IP*ID<JX>-72 

4910  IF  IP/3* INT (IP/3)  THEN  PP-<IP/3>*64  ELSE  PP*<INT(IP/3Hl)»64 
4920  IF  IP/3*INT(IP/3)  THEN  PP*PP*42  !  GOTO  4940 
4930  IF  (IP*  1  >/3  -  INT((IP*l>/3>  THEN  PP*P7»+21 

4940  PRINT  0PP.CHR*(143)i!  FOR  JY*1  TO  25  !  NEXT  JY  !  PRINT  0PP,*H*1 
4950  NEXT  JI 
4960  RETURN 

4970  PRINT  0896, "Do  you  want  to  ih  the  residuals?*! 

4980  PRINT  0896,‘Do  you  want  to  sta  the  residuals?*! 

4990  KP*960  !  L»*“y*  !  R4«*n*  !  GOSUB  360 
5000  IF  IQ»*Y*  OR  ZQ-’y'  THEN  4010 

3010  PRINT  0896,  BL»  !  PRINT  0896,*Do  you  want  to  see  a  plot  of  the  residuals?*! 

3020  GOSUB  360 

3030  IF  IQ»*Y*  OR  ZQ-* y*  THEN  6310 
3040  GOTO  6910 


P1SPIAT-KSSIP-V.AU 

6000  REM  •••  DISPLAY  RESIDUALS  • 

6010  CLS 

6020  PRINT*  T  Observed  Y  Estimate  Residual* 

6030  FOR  1*1  TO  IN 

6040  PRINT  USIMG*ea#eeee.###-.RVa)*SQR(Y2!*YM;:PRINT'  ‘“PRINT  USING*ttt*44«**«*.IH*gai 

oksprint*  *;:print  usiNG-*e*es##ee.**e*;Ea) 

6030  IF  1/12  O  INTa/12)  GOTO  6100 
6060  IF  I*IN  GOTO  6100 

6070  PRINTIPRINT'FRESS  SPACE  BAR  TO  DISPLAY  REMAINDER  OF  RESIDUALS* 

6080  IF  INKEY  4  O  *  *  GOTO  6080 

6090  CLS  (PRINT  00,*  T  Observed  T  Estimate  Residual* 

6100  NEXT  I 

6110  PRINT  Q896,’Da  you  want  to  see  a  plot  of  the  residuals?*! 

6120  KP-960  !  LS**y*  !  R*»*n*  !  GOSUB  360 
6130  IF  ZQ»*Y‘  OR  ZO*y*  THEN  6310 
6140  GOTO  6910 


OBPLAI  PI.QT.gE  BSSZPVAU 

6500  REM  ***  PLOT  OF  RESIDUALS 

6310  CLSiPRINT  00, ‘THE  HORIZONTAL  AXIS  REPRESENTS  T  ESTIMATE 

6320  PRINT  0192, "THE  VERTICAL  AXIS  REPRESENTS  RESIDUAL  OR  ERROR  OF  ESTIMATE 

A330  TS*1E*23  !  TB-lE-23  !  RL»YS  !  RB-TB 

6340  FOR  1*1  TO  IN 

6330  IF  RHdKTS  THEM  TS-RHd) 

6360  IF  RHd»YB  THEN*TB*RHU) 

6370  IF  EdXRL  THEN  RL*E(1) 

6380  IF  Ed)>RB  THEN  RB-Ed) 

6390  NEXT  I 

6600  PRINT  064,*  RANGE  OF  Y  ESTIMATE  ■*!TS!*TO*!TB 
6610  PRINT  0256,*  RANGE  OF  RESIDUALS  *‘!RL!*TO*!RB 

6620  PRINT  0768.*«*«  AFTER  VIEWING  THE  PLOT,  PRESS  SPACE  OAR  TO  CONTINUE* 
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4430  HU-II8/<YL- YSl  :  VU-48/IRB-KU 

4440  IF  YS>0  THEN  VA-10  ELSE  VA-10*ABS<YS*HU> 

4490  IP  RL3-0  T  IEN  HA-47  ELSE  HA-47- ABS(RL«VU> 

4440  PRINT  9894.  "PRESS  SPACE  BAR  TO  DISPLAY  PLOT* 

4470  IF  INKEYt  >  *  *  GOTO  4470 
4480  CLS 

4490  FOR  1*0  TO  47 
4700  SETIVA.I) 

4710  NEXT  I 
4720  FOR  1-10  TO  127 
4730  SET  (I.HAJ 
4740  NEXT  I 

4790  K1-INT(V A/2P-9  !  K2-960+INT(VA/2>-3  C3-INT(HA/3*t.9> IF  HA/3  -  ENT(HA/3»»2/3  THEN  I3-K3-1 
4740  IF  K3>19  THEN  K3-13 

4770  PRINT  9Kl,*“5S  IF  ABS(INT(RB+.5)»-l  THEN  PRINT  STR»(INT(RB*.3D;  ELSE  PRINT  USING*4.444*!RB! 
4780  PRINT  0K2,""-::  IF  ABS<INT(RL*.3ID«1  THEN  PRINT  STR«(INT(RL*J»i  ELSE  PRINT  USING* 4.44 4*;RL! 

4790  IF  VA<-14  AND  YS<0  THEN  K4«K3«44  ELSE  K4»K3«44*4 

4800  PRINT  9K4,”!:iF  ABSIINT(YS+.3>»1  THEN  PRINT  STR«<tNT<YS+.3»!  ELSE  PRINT  USING*4.4444*!TSi 
4810  IF  ABS<INTC'B+.5»>«1  THEN  PRINT  9K3*64+63-LENlSTRVINT(YB+.3»),STRS(IHT<YB+.5)>;  ET-SE  PRINT  810 
18»’*NPRINT  USING*4,444“!YB! 

4820  FOR  I- 1  TO  IN 

4830  O  -  10*<RH(I)-YS)4HU  S  D  ■  47  -  (  IE(I)-RL>#VU  ) 

4840  IF  0>127  THEN  0-127 

4890  IF  D<0  THEN  D-0 

4840  IF  O-INTlVA)  THEN  CH>1 

4870  IF  D-INTIHA)  THEN  RESETlO-t^ll  IF  00127  THEN  RESETlO+l.D) 

4880  SET  <04)1 
4890  NEXT  1 

4900  IF  IN  KEY*  O  •  •  GOTO  4900 

4910  PRINT  8832,  BL«  i  PRINT  BL*  : PRINT  BLSJ 

4920  PRINT  8832.’(1>  RETURN  TO  ANOVA  TABLE*! 

4930  IF  CV>1  THEN  PRINT  8894.’<2)  RERUN  REGRESSION  WITH  A  DIFFERENT  SUBSET  OF  CARRIERS*! 

4940  IF  CV>1  THEM  PRINT  8940,*(3)’!  ELSE  PRINT  0960,*<2>*! 

4990  PRINT  8944,’RETURN  TO  PROGRAM  MENU*! 

4940  Kl*748  !  IF  CV>1  KS-3  ELSE  KS-2 
4970  GOSUB  300 

4980  IF  IO-l  THEM  4010ELSE  IF  IO-2  AND  CV-1  THEM  160 ELSE  IF  10-2  THEN  1900ELSE  140 


raQQRAM  SELECTION  MEN? 

10000 REM  •••  PROGRAM  SELECTION  MENU  *•# 

10010  CLS 

10020  PRINT  TAB(20I*PROGRAM  SELECTION  MENU* 

10030  PRINT  8128, *41  Data  I/O,  Transformations,  Proto,  &  Invars*  Proto,  Distributions* 

10040  PRINT*  42  Sample  Stat's,  7-Num-Sum,  Plots ’[PRINT 

10090  PRINT* 43  Parametric  Tests  of  Hypotheses  and  Confidence  Interval**:FRINT 
10040  PRINT’ 44  Robust  Estimates  and  Confidence  Intervals" ".PRINT 
10070  PRINT* 43  Multiple  Linear  Regression “IPRINT 
10080  PRINT* 46  Analyst*  of  Variance* 

10090  KP-894  !  KS-4  !  GOSUB  300 

10100  IF  IOC1  OR  1036  PRINT  3896,CHRS(Z30>",;FRINT  8896, *44*  NOT  A  VALID  OPTION  ****!3TDR  >1  TO  10001 

NEXT !  PRINT  8396,CHRf<250)iiGOTO!0090 

10110  IF  10-9  GOTO  30 

10120  VP  10-4  THEN  2T-*3*  ELSE  ZT-*1* 

10130  CLS 

10140  IF  1006  THEN  PRINT’From  program  49  access  to  programs  41  thru  44  is  through  the  Control  Module  in 
program  41.*  :  PRINT 

10190  PRINT-INSERT  TAPE  flTT!*  INTO  ESF-90  AND  PRESS  SPACE  BAR* 

10140  IF  INXETtO*  *  GOTO  10140 
10170  IF  10*4  THEN  10-2  ELSE  10-1 

10180  VP  IO-l  THEM  PRINT  1  PRINT  ‘Program  41  is  nose  being  Loaded...’ 

10190  8LOAD  10 


BP,Qf  OOfiBAUja 
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ERQORAM Sfcfe 


VOSS. 


9  CLEAR 

10  CLEAR  200 
20CLS 

30  DEFINT  I-K  :  DEFSTR  L 

39  LB*»CHRS(123>  i  MB**CHRt<176> :  RB»-CHR»(129>  i  BLMCHR»<292> 

40  DIM  PSUOO),  0(10,20) 

90  PRINT  TAB(20>(*  Analysis  of  Van  arcs' 

40  PRINT  TAB(24K*(ANOV A)* 

70  PRIMTlPRINT'Menu!" 

•0  PRINT*  (1)  On*- Way  Classification 

90  PRINT*  (equal  or  unequal  no.  of  observations  for  each  factor)* 

100  PRINT*  (2)  Two-Way  Classification 
110  PRINT*  (with  or  without  replication) 

120  PRINT*  (3)  Three-Way  Classification 

130  PRINT*  (4)  Return  to  Program  Selection  Menu* 

190  LH«CHR*(299):  LP><t»»tM,«»*‘  :  LD»*#** 

140  KP*894  :  KS-4  ;  GOSUB  1000  i  WS-IO  i  XZ«0 
170  CLS  1  IP  WSM  THEN  20000 

160  PRINT  “Will  Data  be  Entered  via  *!LB*;*K*;RB«;**ybo*rd  or  'OESi'T-.RBSI'ape  Vf  1  KP»128  1  LS-'k*  i  RS 
-*t*  1  GOSUB  1200 

190  IP  Q»»*K*  OR  QS*'k'  THEN  11*1  ELSE  H-2  (  GOSUB  4000 
200  CLS 

210  ON  WS  GOSUB  9000.10000.19000.20000 


PRINT  ANOVA  TABLE 

219  CLS 

220  IF  WS-1  LH>*(One-Way  C  lassif icatlon  )*  1GOTO  240 
230  IF  WS»2  LH«*(Two-Way  Classification J'COTO  240 
240  IF  WS*3  LH**(Three-Way  Classification)* 

240  PRINT  TAB(19»* ANOVA  *(LH 

270  PRINT*  SOURCE  O.F.  SUM  OF  SQUARES  MEAN  SQUARE  F 
280  PRINT  STRING S(42.*-“) :  ON  WS  GOSUB  300,400300 

289  CLS  1  PRINT'Do  you  want  to  save  the  data  to  tape?*.  1  KP»37  :  LS-'y'  ;  R*-*n*  :  GOSUB  1200  :  LOO* 

290  IF  LQO*y*  AND  LQO'T*  AND  LQO*n*  AMD  LQO’N*  THEN  GOTO  289 

299  IF  LQ-'y'  OR  LQ-'T*  GOSUB  7000 
297  CLS  (GOTO  90  * 

300  PRINT  LCrTAB(13)X:DF^AB(t9);iPRINT  USING  LP1TRTS5SPRIKT  TAB<34)  (SPRINT  USING  LP1MC (SPRINT  TAB (9 
OKSPRINT  USING  LP5F 

310  PRINT 

320  PRINT*Residual*rrAB(13)(EDFrrABU9)ia>RINT  USING*####**.**8*;ESS;:PRIMT  TAB04XSPRINT  USING**# 

6688.8#8*{ME 

330  PRINT 

340  PRINT  STRING*(62.*-*) 

390  PRINTTatal'STABl  1 3)(TDF7TAB(  19)CFRIHT  USIMG**#****.****rrT3 
340  PRINT  9940, 'Press  SPACE  BAR  to  continue*; 

370  IF  INKEY*  O  *  *  GOTO  370 
380 CLS  (RETURN 

400  IF  I E>1  PRINT  Inter *ction*(TAB(l3)!(PRINT  USING  LDSADFCFRINT  TAB(19)CFRIKT  USING  UXTISSKPRINT 
TABO*)«PRINT  USING  LPD4A((PRIMT  TAB(90)CPRINT  USING  LPiFAlPRINT 
410  IF  IE-1  PRINT  Q192,**(  ELSE  PRINT  9320.**; 
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4M  print  lr;tabm3>;:print  using  ld:rdf::print  tabu?>;:prxnt  using 

SING  UIMRl'.PRINT  TAB(*0)i!PRINT  USING  LPiFRJPRINT 
430  IF  IE*  I  PRINT  0320,*“!  ELSE  PRINT  0448,““! 

440  PRINT  LC IT ABt  1 3)j:PRINT  USING  LDJCDFiiPRINT  TAB»9)!!PRINT  USING 
SING  LP!MC;:PRINT  TAB<50>;:PRINT  USING  LPiFC SPRINT 
450  IF  IE*1  PRINT  0446,““!  ELSE  PRINT  0576,—, 


LPfTRSs;:pRiNT  taboawpriut 


LPITCSSiiPRINT  TAB(36),:PRINT 


u 

u 


♦60  PRINT  “ Residual * !T ABU 3 )!!PRINT  USING  LDiEDFi.'PRINT  TAB(!9)!!PRINT  USING  LP!ESS!!PRINT  TAB(36>i:PR 

nrr  using  lp;me 

470  PRINT  STRINGSC62,*-*) 

480  IF  XI*  1  GOTO  670 

490  PRINT*Total*!TAB<l3>!!PRINT  USING  LDJTDFJIPRINT  TABU9)i:PRINT  USING  LPITTS 
500  IF  IE*1  GOTO  670 

510  FOR  I* l  TO  25  !  PRINT  0233, CHRS<  139)  1  FOR  J*1  TO  25  !  NEXT  I  i  PRINT  0253,“  “  i  FOR  J»1  TO  25  !  NEXT 
jr :  NEXT  I 


520  PRINT  0832, “REMINDER!  4  Urge  F-statlstic  ■>  rejection* 

530  FOR  1-1  TO  1500  !  NEXT  I 
540  PRINT  0832,  LW  !  PRINT  LW 

550  PRINT  Q832,*Do  you  accept  or  reject  the  hypothetic  that  there  it  no  inter-“!PRINT* action  between  the  row  a 
nd  column  faetora?*!5KF»936  !  L»*“a“  !  R**“r“  !  GOSUB  1200  !  LOQt 
570  PRINT  0832, LM  !  PRINT  LW 
580  IF  LQ*“a“  OR  LO*A*  GOTO  620 

590  PRINT  0768, “Since  you  reject  tha  hypotheeii  of  no  interaction  tha  linear*!PRINT*model  ia  violated  and  tha  re 
mainder  of  tha  ANOVA  ia  in  valid  “IPRINT"***  Praia  apace  bar  to  continue*! 

600  IF  INKETa  O  “  *  GOTO  600 

610  CLS  ".RETURN 

620  PRINT  0832,  LW  !  PRINT  LW 

630  PRINT  0192,  LW  !  PRINT  0192,‘Rypotheaia  that  thare  ia  no  interaction  ia  accepted* 

640  PRINT  0832, ‘Do  you  want  to  pool  interaction  &  residual?"!  L»«*y*  !  R6*>*n*  !  JCP-873  !  GOSUB  1200  !  LQ*Q» 
660  IF  LQ  -  *y“  OR  LO  **T*  GOTO  700 

670  PRINT  0768,  LW  !  PRINT  LW  i  PRINT  LW  !  PRINT  0768, LR!*  &  *!LC1*  hypothaaea  can  be  aaaesaad  using*  !  PR 
INT*tha  F -ratios  shown  above.*!  PRINT"  (  Prase  apace  bar  to  continue)*! 

680  IF  UOCETS  O  *  *  GOTO  680 
690  CLS  !  RETURN 

700  ES8-TISS  ♦  ESS  !  EDF*ADF*EDF  !  ME-ESS/EOF  !  FC-MC/ME  !  FR-MR/ME  !  XZ-1  !  GOTO  410 

800  PRINT  LRiT ABC  1 3)!!PRZNT  USING  LDiRDFIIFRINT  TAB(19);:PRINT  USING  LPrrRSS!!PRIKT  TAB(36)SmXNT  U 

SING  LP!MR!!PRIKT  TABC50)!!PRINT  USING  LK  FI 

810  PRINT  LC!TAB<13)!U>RINT  USING  LDSCOFKFRINT  TABU9);:PRINT  USING  LP!TCSS;:PRINT  TAB(36):a*RINT  U 
SING  LPTMCJIPRINT  TAB(50)!!PRINT  USING  LP!  F2 

820  PRINT  LG!TABC13)i9>RINT  USING  LDJGDFJIPRINT  TAB(19)!!PRINT  USING  LFTTOSSIIPRINT  TAB(36)!1PRINT  U 
SING  LPJMGIIPRIIIT  TABC50i::PRINT  USING  LP!  F3 
830  PRINT  !  PRINT'Inter actions!* 

860  PRINT  LEFTa(LR^)i*-“!LEFTS(LC,3)rrABU3)!U»RINT  USING  LD!DDF!!PRINT  TAfl(19)!!PRINT  USING  LPfflOSS 
I1PRINT  TABC36)i!PRINT  USING  LPfflDKPRXNT  TABC50WPRINT  USING  LP!  F4 

800  PRINT  LEFT««JW>i*-*!LEFTSCLG,3);TABU3);!FRINT  USING  LD!BDF!:PRIMT  TABU9)J!PRINT  USING  LP&BSS 
SPRINT  TA8<36)!!PRINT  USING  LPJMBS1PRINT  TA8(50)!!PRINT  USING  LP1F5 

860  PRINT  LEFT6CLC  ■3)i*-*!LEFTtCLQ,5)STABU  3)!!PRINT  USING  LD!ADF!!PRINT  TAB(19);aTONT  USING  LP1AISS 
!!PRINT  TAB(36);:PRINT  USING  LP!MA!!PRINT  TAB(30);!PRINT  USING  LP!  F6 

870  PRINT  1  PRINT" Residual* !T ABU 3>i!PRDtT  USING  LDSEDFJiFRINT  TABC19)!!PRINT  USING  LP!ESS!a*RINT  TAB 
(36)}!PRIMT  USING  LP!  ME 
880  PRINT  STRINGa<63,*-“) 

•90  PRINT  *Total*!TABU3)!!PRINT  USING  LOiTDF, "PRINT  TABC19)!!PRXNT  USING  LP7TSS 
900  PRINT  G960,*aaa  Press  SPACE  BAR  to  return  to  continue*! 

910  IF  INKETSO*  *  GOTO  910 
920  CLS 
930  RETURN 


ornBiiJBJEcnoH 

1000  PRINT  0KP*3, 'OPTION  DESIRED  *!LBS;MBS;RBS; 

1010  ia>IMKET«  !  IP  IS-**  THEN  1010  ELSE  IO-VAL(It) 

1020  PRINT  QICP+21,  ISJ  :  FOR  I-l  TO  100  I  NEXT 

1030  IF  10<1  OR  10>KS  THEN  PRINT  OKP,  BLtli  PRINT  0KF,*»«e  MOT  A  VALID  OPTION  *ee*!i  FOR  I»1  TO  100 
0  !  NEXT  !  PRINT  OKP,  BLSiS  GOTO  1000 
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1040  RETURN 

1200  print  8KP*3.LB*r  *>L»!“  or  >;R»i«  *;rb«s*  ":lb*;mb»;rb*; 

1210  Qa*INKEY«  ;  IF  Q*«"“  THEN  12 10  ELSE  PRINT  3KP+20.0*::  FOR  1-1  TO  100  S  NEXT 
1220  IF  Q*OL*  AND  Q40CHR»<ASClL*>-32>  AND  QtOM  AND  Q*OCHR*<ASC(R*>-32)  THEN  1200 
1230  RETURN 


OHfcHALCUSSlHC^nOH 

5000  REM  •••  ONE-HAT  CLASSIFICATION 
3005  IF  11*2  THEN  ON  QL  GOTO  5110,  5390 

3010  PRINT  TAB(27);"ANOVA*  !  PRINT  TABU71i"(0ne-Hay  Classification!" 

3020  PRINT  9128, 'Enter  a  reference  n«iM  for  the  factor  Ha.  Operator“:iNFUT"<enter  up  to  12  cbaracterarOjC 
3030  PRINT  9128AW  1  PRINT  LW 

3040  PRINT  9128,’Enter  tha  number  of  "ILCl"  lavals  (up  to  lOfiHNFUT  IC 

3090  PRINT  9129, LH  :  PRINT  9129, *Ara  thara  an  equal  number  of  experiments  /  obsarvationa*  1  PRINT" far  each 
laval?*; 

3052  EP-203  1  L***y*  !  R*»"n"  !  GOSUB  1200  1  LQ*G« 

3039  IF  LQ**y*  OR  LQ-"Y"  THEN  QL*1  ELSE  QL»2 
3060  PRINT  9128, LH  1  PRINT  LH 
3080  IF  LQ*“n*  OR  LQ-“N"  GOTO  3390 
3090  PRINT  9123.LH  1  PRINT  LH 

3100  PRINT  9128, "Enter  number  of  obaervationa  for  each  "ILC;*  (up  to  20)*1INPUT  IE 
3110  S-0  SOS-O 

9113  CLS  :  IF  U-2  THEN  PRINT  90, "Calculating" 

3120  FOR  I-t  TO  IC 
3130  IF  II*  1  THEN  PRINT  LC!I 
3140  CSU1-0 
3130  FOR  J-*!  TO  IE 

3160  IF  11*1  THEM  PRINT"  Enter  value  of  observation  •  y  I  (INPUT  C(1J) 

3170  csai-csanctij-) 

3180  S-S+C<I,J)t2 

3190  OS-OS*Caj) 

3200  MEXT  J 
3210  IF  11*1  THEN  PRINT 
3220  NEXT  I 

3230  CLS  1  PRINT  90, "Calculating* 

3240  OS-OSI2/(IC»IEl 
3230TRTS-0 
3260  FOR  1-1  TO  IC 
3270  TRTS*TRTS*CS(I)C2 
3280  NEXT  I 

3290  TRTS»(TRTS/IE>-OS 
3300TTS-S-OS 
3310  ESS-TTS-TRTS 
3320  CDF-IC-1 
3330  EDF*IC*(IE-1) 

3340  TDF*IC»IE-1 
3330  MC*TRTS/COF 
3360  ME-ESS/EDF 
3370  F-MC/ME 
3380  CLS  1  RETURN 

3390  CLS  1  IF  11-2  THEN  PRINT  90, "Calculating" 

3400  os-o :  s-o :  cob-o  :  jn-o 
3410  FOR  1*1  TO  IC 

3420  IF  n-1  THEN  PRINT'Entar  tha  number  of  obaervationa  for  "!LCN',*(up  to  201’IIKFUT  IX (I) 

3430  csai-o  1  CB(I>-0  1  JN-JNrIXa) 

3440  FOR  J-t  TO  IX(D* 

3430  IF  n-1  THEN  PRUTTFot  "iLClir  enter  cbeorvatlan'UinXFUT  Cajl 

3460  csai-csanccij-) 

3470  03-OS*Caj) 

3480  S-**Caj)C2 

9490  NEXT  3 
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5300  PRINT 
5310  NEXT  I 

3320  CLS  :  PRINT  »0, "Calculating” 
3525  TRTS-0 
3330  FOR  I-l  TO  IC 
3340  TRTS»TRT3*CS(I)t2/IX(I) 
5330  NEXT  I 

3360  TRT5-TRTS-OSC2/JN 
3370  TTS-S-OSC2/JN 
3380  ESS-TTS-TRTS 
3390  CDF-lC-l 
3600  EDF-JN-IC 
3610  TDF-CDFrEDF 
3620  MC-TRTS/CDF 
3630  ME-ESS/EDF 
3640  F-MC/MB 
3630  CLS  S  RETURN 


LOAD  DATA  FROM  TAPE 

6000  REM  sea  LOAD  DATA  FROM  TAPE  see 
6010  CLS 

6020  PRIMT*NOTE:  You  must  ipeGfy  a  fila  number  containing  data  which  was* 

6030  PRIKTVecorded  in  tha  format  for  ”, 

6040  IF  WS-1  PRINT*  one-way  classification.*  1  GOTO  6100 

6090  IF  MS-2  THEN  PHIHT*two-way  classification.*  ELSE  PRINT  *thrae-way  classification* 

6100  PRINT  :  PRXNT*Insart  Data  Taps  into  ESF-80  and  prass  SPACE  BAR* 

6110  IF  1NKEYSO*  *  GOTO  6110 

6120  PRINTUNPUT  ’Enter  File  •  of  Data  to  bo  Loadod*!XF 

6130  9C  LOSE 

6140  9OPEN  JF 

6130  98- MS 

6160  OHFUT  MS 

6170  IF  MS-SS  GOTO  6300 

61S0  CLS  t  PRINT* ERROR...  tho  data  file  you  are  attempting  to  load  is  for  * 

61*0  LLUK-one*  I  LLOl-’two*  !  LU3»*tttree* 

6200  PRINT  LUWSir-way  classification  instead  of  ”  ILL  CSS);* -way  classification;* 

6210  PRINT  t  PRINT* Do  you  want  to  continue  to  load  data  and  run  a  ’{LLlMSir-way* 

6220  PRINT* classification  ANOVA  or  do  you  want  tO  start  over?* 

6230  PRINT  9096,'*;aMPUT*  (1)  Continue  (2)  Start  Over  1 1  or  2  rao 

6240  IF  1001  AND  1002  PRINT  0896.  LN  1  PRINT  9896,  ”***  NOT  A  VALID  OPTION  «**t  FOR  1-1  TO  1000!  HE 

XT  1  GOTO  6230 

6250  IF  10-2  RUN 

6300  ON  MS  GOTO  6310.  6300.  6700 

6310  OINPUT  LC 

6320  OINPUT  QL 

6330  OINPUT  IC 

6340  IF  QL-2  GOTO  6400 

6330  OINPUT  IE 

6360  FOR  I-l  TO  IC 

6370  FOR  3-1  TO  IB 

6380  OINPUT  C(Z«J> 

6383  NEXT  3 
6390  MEXT  1 
6393  OC  LOSE 
6397  RETURN 
6400  FOR  I-l  TO  1C 
6410  OINPUT  XX<» 

6420  FOR  2-1  TO  XX® 

6430  OINPUT  CXJ) 

6440  NEXT  3 
6430  NEXT  I 
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64*0  QCLOSE 
6470  RETURN 
6500  OIMPUT  LR.LC 
6510  OINPUT  IR.IC.IE 
6520  FOR  I-l  TO  !R 
6530  FOR  2*1  TO  IC 
6540  FORK-1  TO  IE 
6550  OINPUT  XU.J.K) 
6560  NEXT  K 
6570  NEXT  J 
6580  NEXT  I 
6560  QCLOSE 
6600  RETURN 
6700  OINPUT  LR.LC  XO 
6710  OINPUT  IXiIR.IC.10 
6720  FOR  t-l  TO  IR 
6730  FOR  J-l  TO  IC 
6740  FOR  K-l  TO  10 
6750  OINPUT  X(X«JiK) 
6760  NEXT  K 
6770  NEXT  J 
6780  NEXT  1 
6790  OCLOSS 
6800  RETURN 


SAVE  DATA  TO  TAPE 

7000 REN  SAVE  DATA  TO  TAPE 

7005  CLS 

7010  PRXNTTtot*  will  ba  racordad  in  aartawi  with  tha  format  of* 

7020  PRmr ANOVA  *ILH 

7030  PRINT :  PRINT"  In  aart  Data  Tapa  into  ESP-80  and  praaa  SPACE  BAR* 
7040  IP  IMKET6  O  *  *  GOTO  7040 

7050  PRINT  I  INPUT*  Entar  FUa  8  undar  which  you  want  data  raaordad'SJF 
7055  OCLOSS 
7060  0OPEN  IT 
7070  OPRINT  NS 

7080  ON  NS  GOTO  7100, 7400,  7700 

7100  OPRINT  LC 

7110  OPRINT  QL 

7120  OPRINT  IC 

7130  IP  QL-2  GOTO  7250 

7140  OPRINT  IE 

7150 PORI-1  TO  IC 

7160  POR  J-l  TO  IE 

7t7o  oprint  ca^ri 

7180  NEXT  J 

7190  NEXT  l 

7200  OCLOSS 

7210  RETURN 

7250  FOR  1-1  TO  IC 

7255  OPRINT  IXO) 

7260  FORT-1  TO  IXO) 

7270  OPRINT  CtW) 

7280  NEXT  J 
7290  NEXT  I 
7300  OCLOSE 
7310  RETURN 
7400  OPRINT  LR.LC 
7410  OPRINT  ».IC, IS 
7420  FOR  I-l  TO  IR 
7430  FOR  J-l  TO  IC 
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7440  FOR  K-l  TO  IE 

7430  SPRINT  X(I,J,X> 

7440  NEXT  X 

7470  NEXT  J 

7480  NEXT  I 

7490  SCLOSE 

7300  RETURN 

7700  SPRINT  LR1LC1L.G 

7710  SPRINT  IXtlRtlCiXO 

7720  FOR  !•!  TO  IR 

7730  FOR  J«1  TO  1C 

7740  FOR  K>1  TO  10 

7730  SPRINT  Xa,J,K) 

7740  NEXT  X 

7770  NEXT  J 

7780  NEXT  I 

7790  OCLOSE 

7800  RETURN 


10000  REM  TWO-WAY  CLASSIFICATION 

10009  IF  11-2  THEN  GOTO  10070 

10010  PRINT  TAB(27);*ANOVA*lPRINT  TAB(17>;*(Two-W*y  Classification)* 

10020  PRINT  8192,‘Enter  *  refers nee  nan m  for  the  root  factor  (up  to  12  character*)* (INPUT  LR 

10030  PRINT  S192,  LH  :  PRINT. LW  1  PRINT  8192,*Entar  tho  number  of  *!UW*  lov*U*;dNPUT  IR 

10040  PRINT  9192,  LH  !  PRINT  9192,‘Entar  a  reference  nemo  for  tho  column  factor  (up  to  12  char.'s)*:iNPUT  LC 

10090  PRINT  8192.  LH  i  PRINT  LH  1  PRINT  8192,'Enter  tho  numbor  of  ".LCl*  leveU’iaNFUT  IC 

10099  PRINT  0192,  LH 

100*0  PRINT  0192, ’Enter  tho  numbor  of  replication*  in  each  coll  (up  to  lOrsOMFUT  IE 
10070  CLS  t  IF  IE  O  1  PHINT  *Tho  model  i*  a  S*  ELSE  GOTO  10130 
10080  PRINT  (1)  Fixed  Effect*  Model 
10090  PRINT  Q)  Random  Effect*  Modal 

10100  PRINT  (3)  Rows  Fixed,  Column*  Random 
10110  PRINT  (4)  Column*  Fixed.  Row*  Random 
10120  KF-994  t  KS-4  !  GOSUB  1000  I  JM-IO 
10130  CLS  1  IF  IE-1  THEN  JM*l 

10139  IP  n-2  PRINT  SO.’CalcuUting* 

10140  S-O  t  OS-O 

10190  FOR  1*1  TO  IR  !  RS(I>-0 

10140  IP  n-t  THEN  PRUTFor  "SUM 

10170  FOR  7*1  TO  IC 

10180  IP  0-1  THEN  PRINT  For  *iLCtf 

ioi9o  u-a-itaic  ♦  j  i  psaj)-o 

10200  FOR  X*l  TO  II 

10310  IF  II- 1  THEN  PRINT*  enter  replication  •MiOXFUT  X(M,K) 

10220  T-XdJ.K) 

10230  S-S*TC2  1 0S-08-T  1  RSUXRSaWY  1  PSaj>PSOJ>T 
10240  NEXT  X 
10290  NEXT  J 

10299  IP  11*1  THEN  CLS 
102*0  NEXT  1 

10270  CLS  1  PRINTCaleulatinp* 

10280  08-0St2/(IR«IC4lS) 

10290  FOR  J-l  TO  IC 

10300  CS(J)*0 
10310  FOR  1-1  TO  IN 
10320  FOR  X-l  TO  IS 
10330  CSUWC5U>»X<LJ,XJ 
10340  NEXT  X 

10390  NEXT  I 
10340  NEXT  J 


10370  TRSS-0  i  TCSS-0  !  TISS»0 

10380  FOR  I»t  TO  IR  5  TRSS«TRSS+RS(I)t 2  :  NEXT  I  !  TRSS»TRSS/(IC»IE>-OS  !  RDF*IR-l  :  MR-7RSS/RDF 
10390  FOR  J«1  TO  IC  :  TCSS*TCSS*CS<J>(2  i  NEXT  J  !  TCSS»TCSS/(IR«IE)-OS  i  CDF-IC-l  !  MC-TCSS/CDF 
10400  IF  IE-1  ADF-0  :  TISS«0  :  GOTO  10420 

10410  FOR  K*l  TO  IC*IR  !  TISS«TISSrPS(K>t2  !  NEXT  K  .*  TISS-TISS/IE-OS-TRSS-TCSS  S  ADF«RDF»CDF  !  MA-TI 
SS/ADF 

10420  TTS-S-OS  !  TDF«IR»IC«IE- 1 

10430  ESS-TTS-TRSS-TCSS-7ISS  !  EDF-TDF-ADF-CDF-RDF  i  ME-ESS/EDF 
10440  IF  IE*t  MA«ME 

10430  ON  JM  GOTO  10440,  10430,  10300,  10320 
10440  FR-MR/ME  S  FC-MC/ME  :  FA-MA/ME 
10470  GOTO  10530 

10480  FR-MR/MA  i  FC-MC/MA  FA-MA/ME 
10490  GOTO  10330 

10300  FR-MR/MA  i  FC-MC/ME  i  FA-MA/ME 
10910  GOTO  10330 

10920  FR-MR/ME  1  FC-MC/MA  i  FA-MA/ME 
10930  CLS:  RETURN 


THREE -WAT  CLASSIFICATION 

13000  REM  •••THREE  WAY  CLASSIFICATION  ••• 

13002  IF  11-2  THEN  GOTO  13083 

13009  IX-0 

13010  PRINT  TAB(27)*  ANO  V A*  1  PRINT  7  AB(16>"  (Three-Way  Clarification)" 

13020  PRINT  0192, *En tar  «  rafpran at  name  for  tha  row  factor  (up  to  12  charaetersPSIMPUT  LR 
13030  PRINT  0192,  LW  '.PRINT  LW 

13040  PRINT  01 92, "Enter  tha  number  of  MR1  level i  (up  to  lOPJUNPUT  IR 
13043  IF  IR>IX  THEN  IX-IR 

13090  PRINT  0192AW  *.  PRINT  0192, "Enter  a  reference  nama  for  the  column  factor  (up  to  12  cher.'«>*:iNPUT  LC 
13060  PRINT  0192,  LW  !  PRINT  LW  I  PRINT  0192, ‘Enter  tha  number  of  ‘5LCJ*  level*  (up  to  lOriHNPUT  IC 

13069  IF  IC3IX  THEM  IX-IC 

13070  PRINT  0192,  LW  1  PRINT  LW  1  PRINT  0192, ‘Enter  a  reference  nama  for  tha  group  factor  (up  to  12  char.'*)  * 
(INPUT  LG 

13000  PRINT  0192,  LW  !  PRINT  LW  1  PRINT  0192,‘Eftter  tha  number  of  *}LGJ*  level*  (up  to  lOrjUHPUT  IG 
13082  IF  IG3IX  THEM  IX-1G 

13003  CLS :  S-0 1 OS-O  t  IF  H-2  THEN  PRINT* Calculating* 

13090  FOR  1-1  TO  IX 

13093  RS(l)-0  1  CS(IM)  5  GS OH 

13100  FOR  J-l  TO  IX 

13103  RC(I J)-0  :  RG(I«J>“0  ;  CGd,J>-0 

13110  NEXT  3 

13113  NEXT  l 

13130  FOR  1-1  TO  IG 

13140  IF  II- 1  THEM  PRINT'For  "SLGil 

13130  FOR  J- 1  TOIR 

13160  IF  II-l  THEN  PRINT*  For  *1UUJ 

13100  FORK-1  TO  1C 

13190  IF  II- 1  THEN  PRINT*  Enter  observation  for  *axaCSaNPUT  X(J,K4> 

19200  Y-X(J.K.I> 

13220  S-S-Y12  :  OS-OS-T 

13230  Rscn-Rstmr :  cs<K)-cs<ri*r  t  ascn-GSttwY 

13240  RC(J ,K)-RCU  JO*T  :  RG(J,I)-RG(J  JHT  !  C0(KJXG(K4>*T 

13230  NEXT  K 

13260  NEXT  J 

13263  IF  II-l  THEM  CLS 

13270  NEXT  I 

13200  CLS  I  PRIMT*Celculating* 

13290  OS-OS(2/<IR*IC*lG) 

13300  TRSS-0  !  TCSS-0  J  TGSS-0 

13310  FOR  l«t  TO  IR  S  TRSS-TRSS*RS(W2  !  NEXT  I S  TRSSeTRSS/(IC*IO»  -  OS  i  RDF-IR-t  i  MR-TRSS/ROF 
13320  FOR  J-t  TO  IC  !  TCSS-TCSS*CS(J)12  I  NEXT  3  !  TCSS-TCSS/«R*IO>  -  OS  !  CDF-IC-1  !  MC-TCSS/CDF 
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19330  FOR  E»l  TO  10  :  TGSS*TGSS*GS(K)(2  :  NEXT  K  i  TGSS-TGSS/UR*IC>  -  OS  !  QDF'IG-1  :  MG-TGSS/GDF 
19340  OOSS-O  :  DBSS*0  :  AISS-0 
19300  FOR  I»l  TO  IX 
19390  FOR  J«1  TO  IX 

19400  DGSS*DOSS+RC(I>J)(2  !  DBSS«DBSS»RG<I,J>C2  :  AISS-AISS+CGG  J)C2 
19410  NEXT  J 
19420  NEXT  I 

19430  DOSS-OOSS/IG  -  OS  -  TRSS  -  TCSS  !  DOF«(IR-U*aC-l) !  MD-DOSS/DDF 
19440  DBSS*OBSS/IC  -  OS  -  TRSS  -  TGSS  :  BDF»<IR-l)»<IG-l)  !  MB-OBSS/BDF 
19490  AISS-AISS/IR  -  OS  -  TCSS  -  TGSS  :  ADF»(IC-l)»(IG-l)  :  MA-AISS/ADF 
19499  TSS-S-OS  5  TDF»IR»IC»IG-1 

19440  ESS*TSS-TRSS-TCSS-TGSS-DOSS-DBSS-AISS  !  EDF-TDF-RDF-CDF-GDF-DOF-BDF-ADF  >  ME-ESS/ED F 

19470  F1*MR/ME 

19480  F2-MC/ME 

19490  F3-MG/ME 

19900  F4»MD/ME 

19910  F9-MB/ME 

19920  F&-MA/ME 

19830  RETURN 


20000  REM  •••  PROGRAM  SELECTION  MENU 
20010  CLS 

20020  PRINT  TAB<20>'PROGRAM  SELECTION  MENU' 

20030  PRINT  Q128,*41  Data  I/O,  Traa  formations.  Prob.  ft  Inv.  Prog.  Oistnbutions'lPRIXT 
20040  PRINT' 42  Sample  atat's,  7-Nf*  ■&.«.  Plots'lPRINT 

20090  PRINT* *3  Parametric  Ttir.it  of  Hypotheses  and  Confidanc*  Intervals  "IPRINT 
20060  PRINT* 44  Robust  Estimates  and  Confidenct  Intervals'iPRINT 
20070  r’RINT’SS  Multiple  Linear  Regressian'iPRIMT 
20080  PRINT" 46  Analysis  of  Variance* 

20090  KP-896  !  KS-6  i  GOSVB  1009 

20110  IF  104  GOTO  9 

20120  IF  109  THEM  LT«*3*  ELSE  LT-*1* 

20129  CLS  _ 

20130  IF  1009  THEM  PRIHT-From  program  44  access  to  programs  41  thru  44  is  thorugh  the  Control  Module  in 
program  41.* :  PRINT 

20190  IOl 

20170  PRINT-INSERT  TAPE4  'XTr  INTO  ESF-90  AND  PRESS  SPACE  BAR* 

20180  IF  IN  NETS  O  '  *  GOTO  20180 

20189  IF  LTO*3*  THEM  PRINT* Program  41  now  being  loaded,** 

20190  QLOAD  10 
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